Question

Составить программу вывода на экран среднего арифметического массива состоящего из 15 элементов

Answer 1

Program TZ5;
const
n=15;
var
a:array [1..n] of integer;
i,b:integer;
begin
randomize;
for i:=1 to n do begin
 a[i]:=random (20);
 a[i]:=a[i]-10;
        writeln(i,'  ',a[i]);
end;
b:=0;
for i:=1 to n do
      b:=b+a[i];
writeln('srednee = ',b/n);
readln;
end.