cho biết thuận toán và viết phương trình cho bài toán sau: Nhập 1 dãy ói gồm N phần tử ( N là số tự nhiên nhỏ hơn 200 ). In ra mà hình dãy số vừa nhập, dãy số đã được sắp xếp theo thứ tự giảm dần, tìm số nhỏ nhất của dãy và đếm xem số nhỏ nhất tìm được xuất hiện bao nhiêu lần
uses crt;
var n,i,j,k,d,min:longint;a:array[1..200]of longint;
begin
clrscr;
repeat
write(‘Nhap so luong phan tu: ‘);readln(n);
if (n<=0)and(n>200) then writeln(‘NHAP LAI!’);
until n<=200;
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]);
end;
inc(d);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
k:=a[i];
a[i]:=a[j];
a[j]:=k;
end;
write(‘Day so vua nhap (theo thu tu giam dan): ‘);
for i:=1 to n do begin write(a[i],’ ‘); end; inc(d);
min:=a[1];
for i:=2 to n do if a[i]<min then min:=a[i];
writeln;
begin
write(‘So nho nhat: ‘,min);
inc(d);
end;
writeln;
write(‘So nho nhat duoc xuat hien ‘,d,’ lan’);
readln;
end.