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

Вопрос от пользователя: Емеля

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

Ответ: Клавдий

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.