Question

Поменять местами max и min элементы и вывести массив 1 max и порядковый номер , 2 min и порядковый номер

Answer 1

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]<min then min:=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.