Заполнить линейный массив из 10 элементов случайными числами. Вычислить среднее...

Question

Заполнить линейный массив из 10 элементов случайными числами. Вычислить среднее арифметическое всех его элементов.Pascal ABC

Answer 1

Var
  a: array [1..10] of integer;
  i, k: byte;
  sum: real;
 
begin
randomize;
sum := 0;
k := 0;

writeln(' *** Исходный массив ***');
for i := 1 to 10 do
begin
  a[i] := random(50);
  sum := sum + a[i];
  k := k + 1;
  write(a[i], ' ');
end;

writeln(#13+'Среднее арифметическое = ', (sum/k):0:2);
 
end.