var
x,y,max,s,n:longint;
avg:real;
begin
max:=4*(71-43*sqr(4));
n:=1; s:=max;
for x:=5 to 14 do
begin
Inc(n); y:=x*(71-43*sqr(x)); s:=s+y;
if max end;
avg:=s/n;
Writeln('Максимальное значение: ',max);
Writeln('Среднее значение: ',avg:0:3)
end.
Результат выполнения программы:
Максимальное значение: -2468
Среднее значение: -42318.000