Viết chương trình nhập vào từ bàn phím dãy số sau: A:a1,a2,a3,a4...an. với n là số nguyên dương <=200 a) đưa ra màn hình phần tử có GTLN b) đưa ra mh dãy số đc sắp xếp theo thứ tự không tăng. Gấp ạ, mn giúp em với...

uses crt;
var n,i,j,tam:longint;a:array[1..200]of longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  for i:=1 to n do
        begin
         write('nhap a[',i,']=');readln(a[i]);
        end;
  for i:=1 to n-1do
   for j:=i+1 to n do
    if(a[i]<a[j])then
        begin
         tam:=a[i];
         a[i]:=a[j];
         a[j]:=tam;
        end;
  writeln('cau a:');
  writeln('gia tri lon nhat la:',a[1]);
  writeln('cau b:');
  write('day khong tang la:');
  for i:=1 to n do write(a[i],' ');
 readln
end.

uses crt;
var A : array [1 .. 200] of integer;
    i, N, X, j : integer;
    
begin
    clrscr;
    readln(N);
    for i := 1 to N do read(A[i]);
    
    X := A[1];
    for i := 2 to N do 
        if A[i] < X then X := A[i];
    writeln(X);
    
    for j := N downto 2 do 
        for i := 1 to j - 1 do
            if A[i] < A[i + 1] then
                begin
                    X := A[i];
                    A[i] := A[i + 1];
                    A[i + 1] := X;
                end;
    
    for i := 1 to N do write(A[i],' ');
    readln;
end.