напишите программу, которая генерирует 10 случайных чисел в диапазоне от 1 до 20,выводит эти числа на экран и вычисляет их среднее арифметическое
Ответы
Ответ дал:
0
Const n=10;
Var i:Integer ;s:real;
A:array [1..10]of Integer ;
Begin
S:=0;
For i:=1 to N do begin
A[i]:=random(19)+1;
Write (' A[', i, ']=', A[i]) ;
S:=s+A[i];
End;
Writeln;write(' s=', s/n);
End.
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад