1. С клавиатуры вводитсядет N чисел. Сколько среди них чётных?

2. Вводится последовательность чисел, заканчивающийся 0. Определить сколько чисел в этой последовательности.

Var n, i, a, k: integer;

begin

write ('Введите количество чисел (N) : ') ;

readln (n) ;

for i : = 1 to n do

begin

write ('Введите число: ') ;

readln (a) ;

if a mod 2 = 0 then k:=k+1;

end;

writeln ('Количество чётных чисел: ', k)

end.

var a, k:integer;

begin

write ('Введите число: ') ;

readln (a) ;

while a0 do

begin

k:=k+1;

write ('Введите число: ') ;

readln (a)

end;

writeln ('Количество чисел в последовательности: ', k)

end.