const
n = 10;
var
a, summ, i:integer;
begin
randomize;
summ := 0;
for i := 1 to n do
begin
a := random(20) + 1;
summ := summ + a;
write(a, ' ');
end;
writeln;
writeln('Среднее арифметическое этих чисел ',summ / n);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Напишите программу, которая генерирует 10 случайных чисел в диапазоне от 1 до 20, выводит эти числа на экран и вычисляет их среднее арифметическое (решите через
ответ:const
n = 10;
var
a, summ, i:integer;
begin
randomize;
summ := 0;
for i := 1 to n do
begin
a := random(20) + 1;
summ := summ + a;
write(a, ' ');
end;
writeln;
writeln('Среднее арифметическое этих чисел ',summ / n);
end.
Подробнее - на -
Объяснение: