program oken;
uses crt;
var a:array[1..1000] of integer;
max,max2,i,n,vt: integer;
begin
clrscr;
write('Nhap so phan tu cua mang: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']: '); readln(a[i]);
end;
max:=a[1]; max2:=0; vt:=0;
for i:=2 to n do
if max<a[i] then
max:=a[i];
for i:=1 to n do
if (a[i]>=max2) and (a[i]<max) then
begin
max2:=a[i];
vt:=i;
end;
if vt<>0 then
begin
writeln('Max2: ',max2);
write('CS: ',vt);
end
else
writeln('Khong co gia tri lon thu 2 trong day');
readln;
end.
