Question

Написать программу паскаль, которая вводит с клавиатуры одномерный массив из 10 целых чисел и вычисляет: Сколько элементов массива являются четными числами.

Answer 1

program Prog;

var Mass: array[1..10] of Integer; { Mass -- сам массив }

i, Count: Integer; { Count -- счетчик четных чисел }  

begin

for i := 1 to 10 do begin

 read(Mass[i]);

 if ((Mass[i] mod 2) = 0) then { если число делится на 2 без ост }

  Count+=1 { то засчитываем его }

end;

writeln('Количество четных чисел в массиве: ', Count); { вывод кол-ва чет чисел }

end.