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 !