Question

Сгенерировать массив случайных чисел. Найти наибольшее и наименьшее число в массиве. Поменять местами эти числа и вывести массив заново

Answer 1

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
  a: array of integer;
  i, n, min, max, imax, imin: integer;

begin
  write('Число элементов в массиве ');readln(n);
  setlength(a, n);
  min := maxint;max := -maxint;
  for i := 0 to n - 1 do
  begin
    a[i] := random(101) - 50;
    if a[i] > max then begin
      max := a[i];imax := i;
    end;
    if a[i] < min then begin
      min := a[i];imin := i;
    end;
    write(a[i]:4);
  end;
  writeln;
  writeln('min = ',min,'  max = ',max);
  //меняем местами max и min и выводим массив
  swap(a[imax], a[imin]);
  for i := 0 to n - 1 do write(a[i]:4);
end.

Тестовое решение:
Число элементов в массиве 10
 -19 -14 -44  -3  -4 -46  -1 -39  13  32
min = -46  max = 32
 -19 -14 -44  -3  -4  32  -1 -39  13 -46