// 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
Расстояние между ними через Т - S - v1 * T - v2 * T : Допустим 1 стоит, а 2 идет навстречу 1, тогда 2 пройдет расстояние за время Т = скорость на Т (расстояние = скорость умножить на время) значит сейчас их расстояние будет = Расстояние изначально - Расстояние пройденное = Расстояние Сначала - скорость умножить на Т; Теперь пусть будут двигаться они вдвоем, Значит 1 пройдет расстояние = его Скорость умножить на Т Тогда расстояние будет = Расстояние изначально - Расстояние, которое Расстояние, которое
подставляем буквы и получаем, что расстояние = расстояние изначально - скорость 2 умножить на Т - скорость 1 умножить на Т
// Внимание! Если программа не работает, обновите версию!
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