Дан массив из N элементов. Поменять местами первый наибольший элемент с последним наименьшим. Например исходный массив 10, 9, 10,5,5. Результат работы 5, 9, 10, 5,10.​​

var

 n,max,min,i:integer;

 a:array of integer;

begin

 readln(n);

 setlength(a,n);

 max:=0; min:=0;

 for i:=0 to n-1 do

   begin

     readln(a[i]);

     if a[i]>a[max] then

       max:=i

         else

           if a[i]<=a[min] then

             min:=i;

   end;

 i:=a[max];

 a[max]:=a[min];

 a[min]:=i;

 for i:=0 to n-1 do

   write(a[i]:4);

end.