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

// 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