Tìm giá trị lớn nhất của các phần tử trong mảng

program hoidap247;

uses crt;

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

      i, n, max: longint;

begin

clrscr;

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

for i:=1 to n do

begin

     write('a[',i,']='); 

     readln(a[i]);

end;

max:=a[1];

for i:=2 to n do

if max<a[i] then max:=a[i];

writeln('gia tri lon nhat trong mang la: ', max);

readln

end.

Program BTH;
uses crt;
var a:array[1..100000] of longint;
n,i,max:longint;
tb:real;
Begin
        clrscr;
        write('Nhap n: ');readln(n);
        write('Nhap so thu 1 : ');readln(a[1]);
        max:=a[1];
        For i:=2 to n do
        Begin
                write('Nhap so thu ',i,' : ');readln(a[i]);
                If max<a[i] then max:=a[i];
        end;
        writeln('So lon nhat trong day la: ',max);
        readln;
end.