Определить количество чисел больших нуля среди: a1 a2 … a10

program prog;uses crt;var a: array [1..10] of integer;    i,k: integer;    beginclrscr;randomize;k:=0;for i:=1 to 10 do    begin    a[i]:=random(100)-50;    writeln ('a[',i,'] = ', a[i]);    if a[i]>0 then inc(k);    end;writeln;write('K = ', k);end.