Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

var i,x,sum,ar:integer;

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