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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
