Дана последовательность целых чисел, заканчивающихся нулём. посчитать кол-во четных и нечетных чисел, сумму и среднее арифметическое. написать программу на паскале.

237

308

Посмотреть ответы 2

Ответы на вопрос:

Anorwen

Информатика

4,6(55 оценок)

Var sum, count, r, i: integer; begin repeat write ('введите число: '); readln (r); inc (sum, r); inc (i); if (r mod 2)< > 0 then inc (count); until r=0; writeln (''); writeln ('сумма элементов: ', sum); writeln ('са: ', sum/i); writeln ('нечетных элементов: ', count); writeln ('четных элементов: ', i-count); end.