Задать случайным образом 7 чисел в интервале от 1 до 10. Найти их произведение и среднее арифметическое.
Задать случайным образом 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;
Не нашли ответ?
Похожие вопросы