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;

Program Hotboy;

Uses crt;

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

I,n,max : longint;

Begin

Clrscr ;

Write('nhap so 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 A[i] > max then max:=A[i] ; 

Writeln('phan tu lon nhat bang ',max,' trong mang'); 

Readln

End.