Question

Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от -1000 до 1000­. Допишите на алгоритмическом языке программу, которая находит и выводит максимальный среди отрицательных элементов массива, делящихся на 5. Если таких элементов нет, то вывести 0.

Answer 1

// PascalABC.NET 3.4, сборка 1744 от 14.08.2018

// Внимание! Если программа не работает, обновите версию!

begin

var a := ArrRandom(30, -1000, 1000);

a.Println;

var s := a.Where(t -> (t < 0) and (t mod 5 = 0));

if s.Count = 0 Then Println('Max = 0')

else Println('Max =',s.Max)

end.

Пример:

726 -117 -929 735 889 173 270 -659 -833 -961 692 -327 -530 -50 31 866 248 -786 -455 -830 509 -531 367 147 466 929 -708 -838 -993 -723

Max = -50