Question

Найти в массиве последний минимальный элемент и удалить его. Массив a имеет 20 случайных чисел от -5 до 5

Answer 1

// PascalABC.NET 3.3

begin
  var a:=ArrRandom(20,-5,5);
  a.Println;
  var k:=a.LastIndexMin;
  if k=a.Length-1 then a:=a[:k]
  else a:=a[:k]+a[k+1:];
  a.Println;
end.

Пример:
1 -5 5 5 -1 -1 -5 1 0 0 3 0 5 -1 0 3 3 -2 -4 1
1 -5 5 5 -1 -1 1 0 0 3 0 5 -1 0 3 3 -2 -4 1