Составьте программу которая заполняет массив а [1..8] случайными числами в диапазоне от 1 до 10 и выводит на экран количество элементов с чётными значениями и сумму элементов массива с нечётными значениями

139

197

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

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

21ololoha

Информатика

4,5(98 оценок)

Var a : array [1..8] of integer; i, count, sum : integer; begin randomize; for i : = 1 to 8 do a[i] : = random (10) + 1; count : = 0; sum : = 0; for i : = 1 to 8 do if a[i] mod 2 = 0 then count : = count + 1 else sum : = sum + a[i]; writeln ('count = ', count); writeln ('sum = ', sum); end.