1. В массиве чисел с1, с2, ..., с 60 найти количество нулей стоящих на местах, кратных 4 т. е. среди чисел с4, с8, ..., с60.

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

Question

Информатика

Досифея

12 апреля, 18:59

1. В массиве чисел с1, с2, ..., с 60 найти количество нулей стоящих на местах, кратных 4 т. е. среди чисел с4, с8, ..., с60.

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

+2

Ответы (1)

Знаете ответ на вопрос?

Мура · Answer 1

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] >=a) and (m[i]<=b) then

inc (p1) ;

end;

writeln (p,' ', p1) ;

end.