Дан массив из 20 элементов целого типа, найти произведение нечетных кратных 3 элементов массива. Язык Паскаль)

Ответы (1)

Каннон 25.04.2024 0
Vara: array[1 ... 20] of integer;i, x: integer;Beginx : = 1;write ('Введите 20 чисел для заполнения массива: ');for i : = 1 to 20 do beginreadln (a[i]);end;for i : = 1 to 20 do beginif (a[i] mod 2 = 1) and (a[i] mod 3 = 0) thenx : = x * a[i];end;writeln ('Произведение чисел нечетных и кратных 3 = ', x);End.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос ✅ «Дан массив из 20 элементов целого типа, найти произведение нечетных кратных 3 элементов массива. Язык Паскаль)» по предмету 📙 Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ