Информатика, опубликовано 2018-08-22 23:54:49 by Гость
Задать случайным образом 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;
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.