Program FNG;
Uses crt;
Var A: array[1..100000] of longint;
    n,i,max,vt: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;

        max:=A[1]; vt:=1;
        For i:=2 to n do
                If A[i]>max then
                Begin
                        max:=A[i];
                        vt:=i;
                End;
        Writeln('Max = ',max,'. Vi tri: ',vt);
        Readln
End.

uses crt;

var A : array [1 .. 1000] of integer;

i, n, m, v : integer;

begin

clrscr;

write('Nhap so n = '); readln(n);

write('Nhap day gom ', n ,' so : ');

for i := 1 to n do read(A[i]);

m := A[1]; v := 1;

for i := 1 to n do

if A[i] > m then begin m := A[i]; v := i; end;

write('So lon nhat = ', m ,'. Chi so = ', v);

readln

end.