uses crt;
const
	n=10;
	type a=array[1..n] of integer;
var
	mas, mas1, mas2: a;
	i,i1, sum: integer;
	SrA:real;
begin
	clrscr;
	randomize;
	sum:=0;
	i1:=1;
	for i:=1 to n do begin
		mas[i]:=random(30);
		write(' ',mas[i]);
		sum:=sum+mas[i];
	end;
	SrA:=sum/i;
	i:=2;
	while i<n  do begin
		
		if mas[i]>SrA then begin
			mas1[i1]:=mas[i]; inc(i1);
		end;
		inc(i,2);
	end;
	for i:=1 to i1 do begin
		write(' ',mas1[i]);
	end;	
	readln;
	read;
end.