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

  • 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.

  • 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.