Program prog;
uses crt;

var a: array [1..10] of integer;
    i,k: integer;
    
begin
clrscr;
randomize;
k:=0;

for i:=1 to 10 do
    begin
    a[i]:=random(100)-50;
    writeln (a[,i,] = , a[i]);
    if a[i]gt;0 then inc(k);
    end;
writeln;
write(K = , k);
end.