uses crt;
var x:array[1..10]of real;
i:integer;min,max:real;
begin
clrscr;min:=9999999;max:=-9999999;
for i:=1 to 10 do
begin x[i]:=exp(i*(-1))*(sqr(i)-3*i);
if x[i]if x[i]>max then max:=x[i];
writeln(x[i]:1:5);
end;
writeln('измененный массив с максимальным=',max:1:5,' и минимальным=',min:1:5);
for i:=1 to 10 do
begin
if x[i]=min then writeln(max:1:5);
if x[i]=max then writeln(min:1:5);
if (x[i]min)and(x[i]max)then writeln(x[i]:1:5);
end;
end.