program qq;
var x:array [1..15] of integer;
a,b,c:integer;
begin
randomize;
a:=0;
for b:=1 to 15 do
begin
x[b]:=random(15)-5;
writeln(x[b]);
end;
writeln;
c:=0;
for b:=1 to 15 do
if x[b] mod 2=0 then
begin
c:=c+1
end;
writeln ('Колличество четных элементов=', c:5);
end.