Составьте массив из 30 элементов, вывести произведение нечётных чисел, кратных трём

Вам нужно узнать решение и ответ на вопрос Составьте массив из 30 элементов, вывести произведение нечётных чисел, кратных трём и правильно выполнить домашнюю работу по предмету Информатика? Готовое решение смотрите далее.

Составьте массив из 30 элементов, вывести произведение нечётных чисел, кратных трём

Держи.

var A : array[1..30] of integer; x,i : integer;
begin
x:=1;
for i:=1 to 30 do
begin;
read(A[i]);
if ((A[i] mod 2)>0) and ((A[i] mod 3) = 0)
then
x:=x*A[i];
end;
if x=1 then x:=0;
Writeln(x);
end.

вместо 3 30 поставь

в 1 и 4 строке

сам исправил

Подобные ответы

РЕШИТЕ ПОЖАЛУЙСТА В ПАСКАЛЕ!!! НАЙТИ СУММУ ЦИФР ЦЕЛОГО ЧИСЛА БОЛЬШИХ ПЯТИ!! 7 класс
РЕШИТЕ ПОЖАЛУЙСТА В ПАСКАЛЕ!!! НАЙТИ СУММУ ЦИФР ЦЕЛОГО ЧИСЛА БОЛЬШИХ ПЯТИ!! 7
помогите пожалуйста
помогите пожалуйста
Бабушка плавала на пароходе Иван Крузенштерн , а дедушка служил на судне, названном в честь ........?
Бабушка плавала на пароходе Иван Крузенштерн , а дедушка служил на судне, названном в честь
Пожалуйста сделайте информатику Есть пол часа
Пожалуйста сделайте информатику Есть пол часа
Приведите примеры открытых и замкнутых систем в информатике
Приведите примеры открытых и замкнутых систем в