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.
