2.В массиве чисел с1, с2, …, с40 найти количество чисел, попавших в интервал [а, в]

Ответы:

var a,i,b,p,p1:longint,

m:array[1..60] of longint,

begin

read(a,b),

for i:=1 to 60 do

begin

read(m[i]),

if (i mod 4 = 0) and (m[i]=0) then

inc(p),

if (m[i] &gt,=a) and (m[i]&lt,=b) then

inc(p1),

end,

writeln(p, ,p1),

end.