СРОООЧНО!Найдите средне арифметическое таблицы[1...10]Спасибо!

Program p1;
const n=10;
var a: array [1..n] of integer;
s,i: integer;
r: real;
begin
randomize;
for i:= 1 to n do
begin
a[i]:= random (20)-5;
write (a[i]:3);
s:=s+a[i];
end;
writeln;
r:=s/n;
write (среднее арифметическое=,r);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.