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;
writeln(w);
end.
Объяснение:
===== PascalABC.NET =====
var a := ArrRandom(300, -205, 309);
a.Println; // удалите строку, если вывод не нужен
Println('Кол-во', a.Count(p -> (p < 0) and (p mod 4 = 0)))
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.