Chương trình:


program timso;
var a,b:array[1..100] of integer;
n,i,j:integer;
t:integer;
begin
writeln(`Nhap so phan tu cua mang a`);
readln(n);
writeln(`Nhap du lieu cho mang a`);
for i:=1 to n do
begin
write(`a[`,i,`]=`);
readln(a[i]);
end;
for i:=1 to n do b[i]:=a[i]; {gan du lieu tu mang a vao mang b}
{sap xep mang b theo thu tu tang dan}
for i:=1 to n-1 do
for j:=i+1 to n do
if b[i] > b[j] then
begin
t:=b[i];
b[i]:=b[j];
b[j]:=t;
end;

for i:=1 to n do
begin
if a[i] = b[n-1] then writeln(`phan tu lon thu hai cua day la: `,a[i],` o vi tri thu `,i);
if a[i] = b[n-2] then writeln(`phan tu lon thu ba cua day la: `,a[i],` o vi tri thu `,i)
if a[i] = b[2] then writeln(`phan tu be thu hai cua day la: `,a[i],` o vi tri thu `,i)
if a[i] = b[3] then writeln(`phan tu be thu ba cua day la: `,a[i],` o vi tri thu `,i)
end;
readln;
end.