Дан массив 300 целых чисел в промежутке (-205,309) подсчитать количество отрицательных чисел ,делящихся на 4
,

program n1;

var q,w:integer;

a: array[1..300] of integer;

begin

 for q:=1 to 300 do begin

a[q]:=random(514)-205;  

if a[q]<0 then begin

if a[q]mod 4=0 then

 w:=w+1;

end;

end;

writeln(w);

end.

Объяснение:

===== PascalABC.NET =====

begin

 var a := ArrRandom(300, -205, 309);

 a.Println;  // удалите строку, если вывод не нужен

 Println('Кол-во', a.Count(p -> (p < 0) and (p mod 4 = 0)))

end.