Pascal

uses crt;
var n,i,min1,max1,min2,max2:integer;
a:array[0..1000] of integer;
begin
clrscr;
readln(n);
for i:=0 to n-1 do
begin
read(a[i]);
end;
min1:=a[0];
min2:=0;
for i:=1 to n-1 do
begin
if a[i]<min1 then
begin
min1:=a[i];
min2:=i;
end;
end;
max1:=a[0];
max2:=0;
for i:=1 to n-1 do
begin
if a[i]>max1 then
begin
max1:=a[i];
max2:=i;
end;
end;
writeln(min1,' ',min2+1);
writeln(max1,' ',max2+1);
readln;
readln;
end.

Python

import sys
n=int(input())
a=[int(x) for x in input().split()]
min1=min(a)
min2=a.index(min1)+1
max1=max(a)
max2=a.index(max1)+1
print(min1, min2)
print(max1, max2)
input()

n  =int(input())

a = list(map(int, input().split()))
vitri1=0
vitri2=0
mina=a[0]
maxa=a[0]
for i in range(1,n):
    if a[i]>=maxa:
        maxa=a[i]
        vitri1 = i + 1
for i in range(1,n):
    if a[i]<=mina:
        mina=a[i]
        vitri2 = i
print(mina,end=" ")
print(vitri2+1)
print(maxa,end=" ")
print(vitri1)