Moncart  var a: array [1..10000] of integer;     
b,i:integer;
begin 
randomize; 
b:=0; 
for i:=1 to 10 do   begin     
a[i]:=random(20)-10;     
write(a[i],' ');     
if a[i]>2 then b:=b+1;   
end; 
writeln; 
 writeln('Колличество элементов >2: ', b); 
readln;
end.