const n=10;
var a: array[1..n] of integer;
k,i: integer;
begin
Randomize;
for i:=1 to n do
a[i]:=random(56)-30;
write(a[i],' ');
end;
writeln;
k:=0;
if (i mod 2=0)and(a[i] mod 3=0) then k:=k+1;
writeln('k = ',k);
end.
const n=10;
var a: array[1..n] of integer;
k,i: integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(56)-30;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if (i mod 2=0)and(a[i] mod 3=0) then k:=k+1;
writeln('k = ',k);
end.