uses crt;
var a : array[1..250] of integer;
    i, n, dem1, dem2, min, max : integer;
begin
clrscr;
write(' nhap so phan tu co trong mang :'); readln(n);
dem1 := 0;
dem2 := 0;
for i := 1 to n do
begin
write(' nhap phan tu thu ', i ,' : '); readln( a[i]);
if a[i] > 0 then dem1 := dem1 + 1;
if a[i] < 0 then dem2 := dem2 + 1;
end;
max := a[1] ;
for i:= 1 to n do 
if a[i] > max then max := a[i];
min := a[1] ;
for i:= 1 to n do 
if a[i] < min then min := a[i];
writeln(' soluong phan tu am la : ', dem2 );
writeln(' so luong phan tu duong  la :', dem1);
writeln(' phan tu lon nhat do la ', max );
writeln(' phan tu nho  nhat do la ', min );
readln
end.

program bai_giai;
uses crt;
var am,duong,min,max,n,i,dem:longint;a:array[1..250]of longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  for i:=1 to n do
        begin
         write('a[',i,']=');readln(a[i]);
         if(a[i]>max)then max:=a[i] else min:=a[i];
        end;
  dem:=0;
  for i:=1 to n do if(a[i]<0)then inc(dem);
  writeln('co ',dem,' so le trong day');
  dem:=0;
  for i:=1 to n do if(a[i]>0)then inc(dem);
  writeln('co ',dem,' so chan trong day');
  writeln('so nho nhat trong day la:',min);
  write('so lon nhat trong day la:',max);
 readln;
end.