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

Question

Информатика

Каллисфения

17 апреля, 09:04

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

+3

Ответы (1)

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

Фотинья · Answer 1

Var a, i, b:integer;

s:real;

begin

a:=0;

for i:=1 to 10 do begin

b:=random (20) + 1;

a+=b;

write (b,' ') ;

end;

writeln;

s:=a/10;

writeln (s) ;

end.