var
N: array[1..15] of integer;
i, k: integer;
begin
for i := 1 to 15 do
N[i] := random(11);
write(N[i], ' ')
end;
writeln;
k := 0;
if N[i] mod 2 = 0 then
k := k + 1;
writeln(k)
end.
var
N: array[1..15] of integer;
i, k: integer;
begin
for i := 1 to 15 do
begin
N[i] := random(11);
write(N[i], ' ')
end;
writeln;
k := 0;
for i := 1 to 15 do
if N[i] mod 2 = 0 then
k := k + 1;
writeln(k)
end.