var

A:array [1..20] of integer;

d,i,n:integer;

begin

repeat

writeln('nhapsophantucuamang');

readln(n);

until(n>=1) and (n

write('nhapmang');

for i:=1 to n do

begin

write ('A[',i,']=');

readln(A[i]);

end;

d:=0;

for i:=1 to n do

if A[i]>0 then

d:=d+1;

writeln('solanphantuduongxuathienla:',d);

readln;

end.