program solonnhat;
uses crt;
var A:array[1..15] of real;
n,i,vt:byte;
max:real;
begin
clrscr;
write('Nhap so luong phan tu n: '); readln(n);
write('Nhap so thu 1: '); readln(A[1]);
max:=A[1]; vt:=1;
for i:=2 to n do
begin
write('Nhap so thu ',i,': '); readln(A[i]);
if A[i]>max then
begin
max:=A[i];
vt:=i;
end;
end;
write('Phan tu lon nhat la: A[',vt,']= ',max:2:2);
readln;
end.