Var a:array [1..100] of longint;

Max,n,i:longint;

Begin

Readln(n);

For i:=1 to n do

Readln (A[i]);

For i:=1 to n do

Write(A[i]);

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.

Uses Crt;
Var a:array[1..1000] of integer;
i,n,max:integer;
Begin
Clrscr;
Write('Nhap so ptu n= '); Readln(n);
For i:=1 to n do
Begin
Write('Nhap a[',i,']= '); Readln(a[i]);
End;
Writeln;
Write('Cac ptu trong day tren la: ');
For i:= 1 to n do write(a[i]:3);
max:=a[1];
Writeln;
Write('Gia tri lon nhat trong day la: ');
For i:= 2 to n do
Begin
If max<a[i] then max:=a[i];
End;
Write(a[i]:3);
Readln
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhé! Đa tạ! Đa tạ :33
*Có gì cần hỏi thì comment bên dưới nhá :D