Program So_lon_nhat;

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('So lon nhat la: ',max);

Readln;

End.

Program ngocnek; 

Uses crt; 

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

        I,n,max : integer;  

Begin

 Clrscr ;

 Write('nhap so n: '); readln(n);

 For i:=1 to n do 

    Begin

    Write('M[',i,']= '); readln(M[i]); 

    End;

  Max:=M[1];

  For i:=2 to n do

  If M[i] > max then max:=M[i] ; 

  Writeln('so lon nhat trong cac so vua nhap la:', max); 

  Readln

End.

//Chúc bn học tốt nha !