Определить в массиве произведение остатков от деления на 3 тех элементов, которые не кратны трём.

@flooppi · Регистрация: 03.12.2017

Author24 — интернет-сервис помощи студентам

Ввести одномерный массив из 14 элементов. Определить в нём произведение остатков от деления на 3 тех элементов, которые не кратны трём.

@Ivandur · 03.12.2017, 17:17

Pascal

var a[1..14] of integer;
     i,P,m,n:integer;
begin
p:=1;
for i:=1 to 14 do read(a[i]);
n:=0;
for i:=1 to 14 do 
begin
m:=a[i] mod 3;
if m<>0 then 
  begin
  P:=P*m;
  n:=n+1;
  end;
if n=0 then
  writeln('Нет чисел, не делящихся на 3!!!!')
else
  writeln(P);
end;
end.

Примерно так...

@flooppi 0 / 0 / 0 Регистрация: 03.12.2017 Сообщений: 6
		1
	Определить в массиве произведение остатков от деления на 3 тех элементов, которые не кратны трём. 03.12.2017, 13:04. Показов 1674. Ответов 1 Метки нет (Все метки) Ввести одномерный массив из 14 элементов. Определить в нём произведение остатков от деления на 3 тех элементов, которые не кратны трём. 0

	03.12.2017, 17:17

Опции темы

Определить в массиве произведение остатков от деления на 3 тех элементов, которые не кратны трём.

Решение