Question

1.Массив из 10 элементов заполнить случайным образом и вывести на экран. Вставить элемент равный 100 после минимума. 2.Массив из 10 элементов заполнить случайным образом и вывести на экран. Удалить максимальный.

Answer 1

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  Println('*1*');
  var a:=ArrRandom(10,-99,99); a.Println;
  var imin:=a.IndexMin;
  if imin=a.Length-1 then a:=a+Arr(100)
  else a:=a[:imin+1]+Arr(100)+a[imin+1:];
  a.Println;
  Println('*2*');
  a:=ArrRandom(10,-99,99); a.Println;
  var imax:=a.IndexMax;
  if imax=a.Length-1 then a:=a[:imax]
  else a:=a[:imax]+a[imax+1:];
  a.Println
end.

Тестовое решение:
*1*
-52 -66 -56 55 -94 -53 28 -94 61 61
-52 -66 -56 55 -94 100 -53 28 -94 61 61
*2*
62 -80 91 -85 -59 -58 20 23 -91 53
62 -80 -85 -59 -58 20 23 -91 53