VCT nhập vào số nguyên N,hãy tìm ra chữ số lớn nhất trong số N đó

Program lon_nhat;

Uses crt;

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

I,n,max : longint;

Begin

Clrscr ;

Write(‘nhap so n’); read(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’); 

delay(5000)

Readln;

End.