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

// 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

var

  x: real;

begin

  readln(x);

writeln(x: 0: 0);

end.

var

x,y: real;

begin

x: =-1;

while x< =1 do

begin

y: =x*x*x;

writeln(y);

x: =x+0.1;

end;

end.