hlmod.hu

 
program virtualnak;
var a:array[1..n] of integer;
    i,sum,min,max,n:integer;
    avr:real;
 
begin
    WriteLn("Helloka");
    WriteLn("Mennyi nap?");
    ReadLn(n);
    sum:=0;
    for i:=1 to n do
    begin
     writeln(i, ". nap?");
     ReadLn(a[i]);
     sum:= sum+a[i];
    end;
    WriteLn("Tenkju");
    min = a[1];
    max = a[1];
    for i:=2 to n do
    begin
     if a[i]<min then min:=a[i];
     if a[i]>max then max:=a[i];
    end;
    WriteLn("Legkisebb: ", min);
    WriteLn("Legnagyobb: ", max);
    avr:=sum/n;
    WriteLn("Atlaghom.: ",avr:0:2);
    for i:=1 to n do
    begin
    if a[i] > avr then WriteLn("Az", i, ". napon magasabb volt.");
    end;
end;