Tìm phân tử lớn nhất dãy số nguyên với N<=250 theo trực tiếp hoặc gián tiếp

bạn có thể tham khảo

uses crt;

var a: array [1..250] of longint;

      n,i,j:byte;

      t:longint;

begin

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

for i:=1 to n do

write('Nhap so thu ',i); read(a[i]);

for i:=1 to n-1 do
                for j:=i+1 to n do
                        if a[i]<a[j] then
                        begin
                                t:=a[j];
                                a[j]:=a[i];
                                a[i]:=t;
                        end;

clrscr;

write('Phan tu lon nhat la, ',a[1]);

end.