ИЕ
Ирина Ерохова
Составить программу в Pascal...
Необходимо сгенерировать последовательность из 10 случайных чисел, вывести ее на экран и найти среднее арифметическое этих чисел.
Необходимо сгенерировать последовательность из 10 случайных чисел, вывести ее на экран и найти среднее арифметическое этих чисел.
for i:=1 to 10 do begin
a [ i ] :=random(101); s:=s+ a [ i ];
write(a:4);
end;
writeln;
writeln(s/10:6:3);
Пример выводит на экран 10 случайных чисел, потом выводит их сумму и потом и среднее арифметическое. (Диапазон случайных чисел от 1 до 100)
program a1;
uses crt;
var n,m,AvgSum: integer;
begin
clersc;
randomize;
AvgSum:=0;
m:=0;
for n:=1 to 10 do
begin
m:=random(101);
AvgSum:=AvgSum+m;
write(m, ' ');
end;
writeln;
writeln( ' Summary = ' , AvgSum);
writeln( ' Average summ = ',AvgSum/10 );
readln
end.
Не забудьте проверить работоспособность. Всего хорошего.