Viết chương trình nhập vào n số nguyên. Tìm số lớn nhất trong các số đó và in kết quả ra màn hình.

program oken;

uses crt;

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

     i,n,max:integer;

begin

clrscr;

write('nhap so phan tu cua mang: '); 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('phan tu lon nhat cua mang: ',max);

readln;

end.

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