Пользователь вводит 10 целых чисел. Подсчитать, сколько среди них четных. (В Pascal)

Question

Информатика

Дара

7 декабря, 02:23

Пользователь вводит 10 целых чисел. Подсчитать, сколько среди них четных. (В Pascal)

+4

Ответы (1)

Знаете ответ на вопрос?

Ивон · Answer 1

Program asdf;

var a:array[1 ... 10] of integer;

i, b:integer;

begin

for i:=1 to 10 do

read (a[i]) ;

for i:=1 to 10 do

if a[i] mod 2 = 0 then b:=b+1;

writeln (b) ;

end.