Дан массив целых чисел, состоящий из 5 элементов. Заполнить его с

// PascalABC.NET версия 3.4, сборка 1767

begin

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

Writeln('количество четных элементов = ',mas.Where(t-gt;t mod 2 = 0).Count);

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

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

mas.Where(t-gt;(tlt;z )and (t mod 4 = 0)).Print;

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 ('Элементы lt; z и кратные 4: ');

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

end.