Cho dãy A gồm có N số nguyên, hãy cho biết A đó có bao nhiêu số âm (số 0 là số âm).
___________________________________________________________________________
program dayso;
uses crt;
var dem,i,n:integer;
      a: array[1..100] of integer;
begin
writeln('nhap n='); readln(n);<br />for i:=1 to n do <br />begin; writeln('a[i]='); readln(a[i]); end;
dem:=0;
for i:=1 to n do if a[i] <= 0 then dem:=dem+1;
writeln('co tat ca ',dem,' so am trong day'); 
readln;
end.