Дан массив целых чисел, состоящий из 5 элементов. заполнить его с клавиатуры. найти: количество четных элементов; вывести значения тех элементов, которые меньше заданного числа z и кратны 4.

// pascalabc.net версия 3.4, сборка 1767

begin

var mas: =readarrinteger('введите элементы масива-> ',5);

writeln('количество четных элементов = ',mas.where(t-> t mod 2 = 0).count);

var z: =readinteger('z = ');

write('значения тех элементов, которые меньше заданного числа z и кратны 4: ');

mas.where(t-> (t< z )and (t mod 4 = ;

end.

const n=5;

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

i,k,z: integer;

begin

for i: =1 to n do

begin

write ('введите ',i,' элемент: ');

readln (a[i])

end;

write ('массив: ');

for i: =1 to n do

begin

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

write (a[i]: 3,' ')

end;

writeln;

write ('z = ');

readln (z);

write ('элементы < z и кратные 4: ');

for i: =1 to n do if (a[i]< z) and (a[i] mod 4 = 0) then write (a[i]: 3,' ')

end.

братан, я на знаю, но знаю одно, ты лучший. УДАЧИ ТЕБЕ ВО ВСЕМ!!!!