var n,k,v,min,max,s: integer;
begin
readln(n);
k:=1;
read(v);
min:=v;
max:=v;
s:=v;
while k<n do
begin
k:=k+1;
read(v);
s:=s+v;
if v<min then min:=v;
if v>max then max:=v;
end;
writeln('min = ',min,' max = ',max,' sr = ',s/n:4:2);
end.
Пример:
5
85 62 105 74 90
min = 62 max = 105 sr = 83.20
Радио, компьютер,телефон...
Var a, s, m: integer;
begin
while m < 5 do begin
read(a);
s := s + a;
if (a div 100 > 0) and (a div 100 < 10) then m := 5;
end;
writeln(s-a);
end.