Сгенерировать массив из N=10 случайных чисел {-20;95}, вывести. Найти минимальный и...

Question

Сгенерировать массив из N=10 случайных чисел {-20;95}, вывести. Найти минимальный и максимальный элементы и их индексы, вывести на следующей строчке. Поменять местами минимальный и максимальный элементы, вывести полученный массив на следующей строчке.

---

Answer 1

Begin
  var a:=ArrRandom(10,-20,95); a.Println;
  var imax:=a.IndexMax;
  Println('max = ',a.Max,' imax = ',imax+1);
  var imin:=a.IndexMin;
  Println('min = ',a.Min,' imin = ',imin+1);
  Swap(a[imin],a[imax]); a.Println;
end.

Пример:
56 76 -20 89 85 39 -5 39 -5 41
max =  89  imax =  4 
min =  -20  imin =  3 
56 76 89 -20 85 39 -5 39 -5 41

Answer 2

//PascalABC.Net v3.1

const n = 10;

var imin,imax,max,min,i:integer;

a:array[1..n] of integer;

begin

  min := maxint;

  max := - maxint;

  for i:=1 to n do begin

    a[i]:= random(-20,95);

    if a[i]<= min <span>then begin 

      min:=a[i]; imin:=i;

    end;

    if a[i]>= max then begin

      max:=a[i]; imax:=i;

    end;

  write(a[i]:4);

  end;

  writeln;

  writeln(min:4,imin:4,max:4,imax:4);

  (a[imin],a[imax]):=(a[imax],a[imin]);

  for i:=1 to n do write(a[i]:4);

end.

Тестовое решение:

   1  -6  43  28  13 -10  64  92  85  95

 -10   6  95  10

   1  -6  43  28  13  95  64  92  85 -10