Question

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

Answer 1

var i,x,sum,ar:integer;

randomize;
For i=1 to 7 do begin
x:=random(11);
sum:=sum+x;
end;
ar:=sum/7;