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

Question

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

Answer 1

Program Jessika;
const
  n=10;
var
  table: array [1..n] of integer;
  sum,i: integer;
  arifm: real;
begin
  randomize;
  sum:=0;
  writeln ('элементы таблицы:');
 for i:= 1 to n do
    begin
      table[i]:= random (101)-50;
      write (table[i]:4);
      sum:=sum+table[i];
    end;
  writeln();
  arifm:=sum/n;
  writeln ('Cреднее арифметическое таблицы равно ',arifm:3:2);
end.

Answer 2

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.