C++ :

#include<bits/stdc++.h>
using namespace std;
int n;
int a,maxx,maxxx,minn=1005,minnn;
int main()
{
	cin>>n;
	for(int i=1;i<=n;i++)
	{
		cin>>a;
		if(a>maxx){maxx=a;maxxx=i;}
		if(a<minn){minn=a;minnn=i;}
	}
	cout<<maxx<<" "<<maxxx<<endl<<minn<<" "<<minnn<<endl;
   return 0;
}

Pascal :

var i,n,max,min,maxp,minp:integer;
    a:array[1..100] of integer;
begin
   readln(n);
   for i:=1 to n do
     read(a[i]);
   max:=a[1];min:=a[1];
   for i:=1 to n do
     begin
        if a[i]>max then begin max:=a[i];maxp:=i;end;
        if a[i]<min then begin min:=a[i];minp:=i;end;
     end;
   writeln(max,' ',maxp);
   writeln(min,' ',minp);
end.