Дан целочисленный массив из 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

program xxx; var i, j, k, n, p, s : integer;       a : array [1..20] of integer; begin  write ('введите количество инверсий -');   readln(k);   write ('введите количество ламп -');   readln(n);   for i: =1 to n do      a[i]: =0;   for i: =1 to k do      begin          write ('введите инверсию p-');           readln(p);           j: =p;           while j< =n do              begin                  if a[j]=0 then a[j]: =1 else a[j]: =0;                   j: =j+p              end      end;   s: =0;   for i: =1 to n do      if a[i]=1 then s: =s+1;   write ('ламп горит -', s);   readlnend.

карандаш — инструмент в виде стержня, изготавливаемого из пишущего материала (угля, графита, сухих красок и т. п.) применяемый для письма, рисования, черчения.