Напишите программу, которая генерирует 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.

program random_1;

var

x, sum, i:integer;

begin

randomize;

writeln ('Ряд случайных чисел: ') ;

for i:=1 to 10 do begin

x:=random (20) + 1;

sum:=sum+x;

if i10 then write (x,', ')

else writeln (x,'.') ;

end;

writeln ('Среднее арифметическое этих чисел ', sum/10) ;

end.