program solonnhat;
uses crt;
var A:array[1..100] of integer;
n,i,max,vt:integer;
begin
clrscr;
write('Nhap so luong phan tu N: '); readln(n);
randomize;
for i:=1 to n do
A[i]:=random(300);
max:=A[1]; vt:=1;
for i:=1 to n do
begin
write(A[i],' ');
if A[i]>max then
begin
max:=A[i];
vt:=i;
end;
end;
writeln;
writeln('Phan tu lon nhat la: ',max);
write('Co vi tri dau tien la: ',vt);
readln
end.