Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения...

Question

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 100. Опишите на русском языке или на одном из языков программирования алгоритм , позволяющий найти и вывести произведение двузначных элементов массива, которые не делятся на 6.Гарантируется, что в исходном массиве есть хотя бы один такой элемент. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. Исходные данные всегда подобраны так, что результат произведения не выходит за пределы объявленных типов данных.

Паскаль:
const N=30
var a : array [1..N] of longint;
i, j, p:longint;
begin
for i := 1 to N do
readln(a[i]) ;
...
end.

Answer 1

const N=30;

var a : array [1..N] of longint;         
i, j, p:longint;

begin
for i:=1 to N do readln(a[i]);
{...}
p:=1;
for i:=1 to N do 
 if A[i] div 10 <> 0 then 
  if A[i] mod 6 <> 0 then p:=p*A[i]; 
writeln('Произведение двухзначных элементов массива, которые не делятся на 6 = ',p);
end.  

Comments

{...} а что тут писать?

---

Ничего, просто я оставил многоточие как комментарий, не влияющий на код программы, чтобы отделить начальный код от дописанного. Эту строку можно удалить.

---

Спасибо за помощь! Очень выручил.

---

На здоровье.