Question

Найдите среднее значение массива, состоящего из 20 символов, полученных случайным образом.
ПОМОГИТЕ ПОЖАЛУЙСТА!!!!! 9 класс информатика

Answer 1

var

i: integer;

sum: real;

a: array [1..20] of real;

begin

randomize;

sum:=0;

for i:= 1 to 20 do

begin

a[i] := random*100;

sum:= sum+ a[i];

write (a[i] : 3 : 2,' ');

end;

writeln;

write (sum/20 : 3 :2);

end.