Question

в одномерном массиве A который состоит из 7 случайных чисел в диапазоне (-50,50) найти значение и индекс наибольшего из отрицательных элементов

Answer 1

// PascalABC.NET 3.2, сборка 1492 от 03.07.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(7,-50,50); a.Println;
  var aimax:=a.Select((x,i)->(x,i)).Where(x->x[0]<0).MaxBy(x->x[0]);
  Writeln('Наибольший отрицательный элемент А[',aimax[1]+1,']=',aimax[0])
end.

Пример
-43 21 5 -10 -19 16 -40
Наибольший отрицательный элемент А[4]=-10