Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 100. Опишите на русском языке или на одном из языков программирования алгоритм , позволяющий найти и вывести произведение двузначных элементов массива, которые не делятся на 6.Гарантируется, что в исходном массиве есть хотя бы один такой элемент. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. Исходные данные всегда подобраны так, что результат произведения не выходит за пределы объявленных типов данных.Паскаль:const N=30var a : array [1..N] of longint; i, j, p:longint;begin for i := 1 to N doreadln(a[i]) ; ...end.
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 100. Опишите на русском языке или на одном из языков программирования алгоритм , позволяющий найти и вывести произведение двузначных элементов массива, которые не делятся на 6.Гарантируется, что в исходном массиве есть хотя бы один такой элемент. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. Исходные данные всегда подобраны так, что результат произведения не выходит за пределы объявленных типов данных.Паскаль:const N=30var a : array [1..N] of longint; i, j, p:longint;begin for i := 1 to N doreadln(a[i]) ; ...end.
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
// инициализируем переменную для хранения произведения
p := 1;
// проходим по массиву и проверяем каждый элемент
for i := 1 to N do
begin
if (a[i] >= 10) and (a[i] < 100) and (a[i] mod 6 <> 0) then
begin
// умножаем произведение на двузначный элемент, который не делится на 6
p := p * a[i];
end;
end;
// выводим результат
writeln('Произведение двузначных элементов, не делящихся на 6: ', p);