Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от

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

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

begin

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

a.Println;

var s := a.Where(t -gt; (t lt; 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