Запишите программу формирования и вывода массива из 20 случайных чисел (из диапазона от 0 да 1000) и вычисления их среднего значения

Question

Информатика

Олюня

18 апреля, 06:35

Запишите программу формирования и вывода массива из 20 случайных чисел (из диапазона от 0 да 1000) и вычисления их среднего значения

+2

Ответы (1)

Знаете ответ на вопрос?

Светлан · Answer 1

Var

m:array[1 ... 100] of integer;

i, s, n:longint;

a:real;

begin

randomize;

writeln ('Массив:') ;

for i:=1 to 20 do

begin

m[i]:=random (1001) ;

write (m[i],' ') ;

s:=s+m[i];

end;

a:=s/20;

writeln ('Среднее арифметическое: ', a:2:3) ;

end.