Напишите программу которая генерирует 10 случайных чисел в диапазоне от 1 до 20 выводит эти числа на экран и вычисляет их среднее арефмитическое

Предыдущий
вопрос Следующий
вопрос

Question

7 Мар 2020 в 19:41

1 825 +1

0

PetyaGavrikov · Answer 1

var a,s,i: integer;

begin

s:=0;

for i:=1 to 10 do

begin

a:=random(20)+1;

writeln(a);

s:=s+a;

end;

writeln(s/10);

end.