{
Toto reseni neni idealni, jelikoz ma celkem 3 cykly
spravne a optimalizovane reseni by melo poze 2
}
uses crt;
var z:char;
    n,i:integer;
    prumer:real;
    pole:array[1..50] of integer;

begin
repeat
clrscr;
writeln('Trtkal 2008 - http://fei.trtkal.net');
writeln('-----------------------------------');
begin
     write('Zadej celkovy pocet hodnot: ');readln(n);
{odtud by slo spojit do jednoho cyklu}
     for i:=1 to n do
         begin
              write('Zadej hodnoty pro vypocet:  ');readln(pole[i]);
         end;
     prumer:=0;
     for i:=1 to n do
         prumer:=prumer+pole[i];
{zde by koncil jeden cyklus}     
     prumer:=prumer/n;
     for i:=1 to n do
         begin
              if pole[i]>prumer then writeln('Hodnota vetsi, nez prumer je: ',pole[i]:5);
         end;

writeln('-----------------------------------');
writeln('Jiz nepatri do zadani');
writeln('Prumerna hodnota je: ',prumer:1:1);
end;
writeln('-----------------------------------');
write('Opakovat a/n: ');readln(z);
until (z='n');
end.