program        day_con;

uses        crt;

var         A:array[1..100] of integer;

              i,n,dau,ldau,dai: integer;

begin

write('Nhap so n: '); readln(n);

for i:=1 to n do

begin write('a[',i,']='); read(a[i]); end;

i:=0;

dau:=1;

dai:=0;

ldau:=1;

ldau:=i+1;

while i<=n do

begin

i:=i+1;

if M[i] < 0 then begin dai:=dai+1;

end;

writeln('Co ',dai,'phan tu am; Bat dau tu: ',ldau);

readln

end.

program dem_duong;

uses crt;

var A:array[1..1000] of integer;

      n,i,d:integer;

begin

      clrscr;

      write('Nhap so luong phan tu: ');  readln(n);

      d:=0;

      for i:=1 to n do

            begin

                  write('Nhap so thu ',i,': ');  readln(A[i]);

                  if A[i]>0 then d:=d+1;

            end;

      write('So phan tu duong la: ',d);

      readln;

end.