Составить программу в Pascal...

Question

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

Людмила Игнатова · Accepted Answer

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);

Евгения Горлова · Answer

Пример выводит на экран 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. 
 
Не забудьте проверить работоспособность. Всего хорошего.