Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от 0 до 100. Напишите программу, позволяющую найти и вывести произведение двузначных элементов массива, которые не делятся на 6. Гарантируется, что в исходном массиве есть хотя бы один такой элемент. Исходные данные объявлены так, как показано ниже.
const N=20; var a: array [1..N] of longint; і, j, p: longint; begin for і := 1 to N do readln(a[i]); ... end.

maks2614    1   26.04.2020 19:52    7