Составить программу: даны натуральное число m и целые числа d1, d2, ..., dm. Выяснить, верно ли, что количество положительных чисел di кратно трем.

Question

Информатика

Детрой

12 июля, 13:07

Составить программу: даны натуральное число m и целые числа d1, d2, ..., dm. Выяснить, верно ли, что количество положительных чисел di кратно трем.

+1

Ответы (1)

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

Мохаммэд · Answer 1

Program Proverka;

var a, b, c, k:integer;

begin

k:=0;

read (a) ;

for c: = 1 to a do

begin

read (b) ;

if (b > 0) then

begin

k:=k+1;

end;

end;

if (k mod 3 = 0) then

begin

write ('YES') ;

end

else

begin

write ('NO') ;

end;

end.