Question

Решить в Паскале
Заполнить массив 10 случайными числами (0-100)в одномерный массив, затем вычислить их среднее значение и вывести ее на экран.

Answer 1

var

 a: array[0..20] of integer;

 i, n, Sum: integer;

begin

 n := 10;

 Sum := 0;

 Randomize;

 for i := 1 to n do

 begin

   a[i] := Random(101);

   Sum := Sum + a[i];

   Write(a[i], ' ');

 end;

 

 Writeln;

 Write('Average = ', Sum / n)

end.