program sort;
uses crt;
type
   arr_ = array[1..20] of integer;
var i,C, MAX:integer;
	A :arr_;

	
begin
	randomize;
	C := 0;
	Writeln('-----all elements A----- ');
	for i := 1 to 20 do
		begin
			A[i] := random(100);
			Writeln(A[i]);
			C := C + A[i];
		end;	
	C := C div 20;
	Writeln('----- C ----- ');
	Writeln(C);	

	MAX := 0;
	
	for i := 1 to 20 do
		if((A[i] < C) and (A[i] > MAX)) then
			MAX := A[i];

	Writeln('----- MAX ----- ');
	Writeln(MAX);		

	readkey();
end.