cho dãy số A gồm N số nguyên khác nhau a1,a2...aN a) tìm gái trị nhỏ nhất của dãy số nguyên b) sắp xếp dãy A giảm dần c) đếm xem trong dãy có bao nhiêu số chẵn d) tìm xem trong dãy có bao nhiêu giá trị mà ai=10

uses crt;
var n, i, y, min, t, d, dt: integer;
 a: array[1..1000] of integer;
begin
clrscr;
 write('nhap n: '); readln(n);
   for i:=1 to n do begin
   write('a[',i,']='); readln(a[i]); 
     end;
 min:=a[1];
  for i:=1 to n do begin
 if (a[i]<min) then min:=a[i];
  if (a[i] mod 2=0) then inc(d);
  if (a[i]=10) then inc(dt);
      end;
 writeln('gia tri nho nhat: ',min);
 writeln('sap xep giam dan: ');
 for i:=1 to n do
   for y:=i+1 to n do 
 if (a[i]<a[y]) then begin
   t:=a[i];
   a[i]:=a[y];
   a[y]:=t;
    end;
 for i:=1 to n do write(a[i]:3);
 writeln;
 writeln('co ',d,' so chan trong day');
 writeln('co ',dt,' gia tri ma a[i]=10 trong day');
readln;
end.