Сгенерировать случайным образом массив целых чисел из n элементов.

[ANN4]

Сгенерировать случайным образом массив целых чисел из n элементов. n ввести со стандартного ввода. Вывести на экран среднее арифметическое элементов.

[Stilet]

Попытки и наработки увидеть можно?

[ANN4]

Увы, нет.

[newerow1989]

var i,n,s:integer;
    sr:real;
    p:array of integer;
begin
   Randomize;
   Write('n = ');
   Readln(n);
   SetLength(p,n);
   For i:=0 to n-1 do
   begin
      p[i]:=Random(21);
      Write(p[i],'  ');
   end;
   Writeln;
   s:=0;
   For i:=0 to n-1 do
      s:=s+p[i];
   sr:=s/n;
   Writeln(sr:5:5);
   Readln;
end.

Сойдет?