C++ :

#include<iostream>
#include<cmath>
using namespace std;
int main(){
	int a[11];
	int n;
	cin>>n;
	float av=0;
	for(int i=1;i<=n;i++){
		cin>>a[i];
		av = av+a[i];
	}
	av = round(av/n*10) /10;
	cout<<av<<endl;
	for(int i=1;i<=n;i++){
		if(a[i] >av) {
			cout<<i<<':'<<a[i]<<' ';
		} 
	}
	cout<<endl;
	return 0;
}

Pascal :

var
  i,n,s:integer;
  a:array[1..1000] of integer;
  av:real;
begin
  readln(n);
  for i:=1 to n do
    read(a[i]);
  for i:=1 to n do
    s:=s+a[i];
  av:=s/n;
  writeln(av:0:1);
  for i:=1 to n do
    if a[i] > av then
       begin
       write(i,':',a[i]);
       write(' ');
       end;
  
end.