Дан массив из 15 целых чисел.Отыскать творение частей массива, кратных 3.Элементы

Дан массив из 15 целых чисел.
Найти произведение частей массива, кратных 3.
Элементы массива, значения которых = 0, не считать кратные 3.
Sample Input 1:

-5 4 6 3 -1 7 0 7 8 -4 -6 -9 7 -2 1
Sample Output 1:

972
Sample Input 2:

-10 -2 -5 0 8 2 8 -8 5 -3 8 -2 -9 -6 -9
Sample Output 2:

1458
Sample Input 3:

5 5 7 5 8 -10 8 4 -5 -1 -5 9 -5 -8 0
Sample Output 3:

9

Задать свой вопрос
1 ответ
Var
a:array[1..15] of Integer ;
i,p:Integer;
begin
p:=1;
for i:=1 to 15 do
begin
read(a[i]);
if (a[i] mod 3 = 0) and (a[i] lt;gt;0) then p:=p*a[i];
end;
Writeln(p);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт