Информатика, опубликовано 2018-08-22 21:58:46 by Гость
Написать программу которая запрашивает у пользователя 6 чисел,реализовать это в цикле и найти произведения и средние арефметическое этих чисел
Ответ оставил Гость
Program ex;
var i, a, k, sa: integer;
begin k := 1; sa := 0; for i := 1 to 6 do begin read(a); k := k * a; sa := sa + a; end; writeln(Произведение : , k); write(Среднее арефметическое : , sa / 6)end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на