Viết chương trình nhập vào một dãy A gồm n(n≤100) số nguyên. Hãy viết chương trình tìm phần tử lớn nhất(Max) của dãy đã cho. In kết quả ra màn hình

program lon_nhat;

uses crt;

var A:array[1..100] of integer;

      n,i,max:integer;

begin

      clrscr;

      {---Nhap---}

      write('Nhap n (n<=100) : '); readln(n);

      for i:=1 to n do

            begin

                  write('A[',i,']= ');  readln(A[i]);

            end;

      {---Tim-lon-nhat---}

      max:=A[1];

      for i:=2 to n do

            if A[i]>max then max:=A[i];

      writeln('So lon nhat la: ',max);

      readln;

end.

uses crt;
var n,i,max:longint;a:array[1..100]of longint;
begin
        clrscr;
        repeat
                write('Nhap so luong phan tu: ');readln(n);
                if (n<=0)and(n>100) then writeln('NHAP LAI!');
        until n<=100;
        for i:=1 to n do
                begin
                        write('Nhap phan tu thu ',i,': ');readln(a[i]);
                end;
        max:=a[1];
        for i:=2 to n do if a[i]>max then max:=a[i];
        write('Phan tu lon nhat: ',max); 
        readln;
end.