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

sashatitsky sashatitsky    3   15.07.2019 02:40    0

Ответы
lerusik112 lerusik112  20.09.2020 20:17
var i,x,sum,ar:integer;

randomize;
For i=1 to 7 do begin
x:=random(11);
sum:=sum+x;
end;
ar:=sum/7;
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика