Составить программку : даны натуральное число m и целые числа

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

Задать свой вопрос
Миша Ивашкива
Язык?
Светлана
pascal
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 gt; 0) then 
begin
k:=k+1;
end;
end;
if(k mod 3 = 0) then
begin
write('YES');
end
else
begin
write('NO');
end;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт