Question

Const N=30; var a: array [1..N] of longint;i, j, p: longint;beginfor i:=1 to N do readln(a[i]);p:= 1;for i:=1 to N doif (a[i] mod 2 = 0) and (a[i] mod 10 > 0) thenp:= p*a[i];writeln(p)end.Укажите словами , 1 предложением, что определяет данная программа​

Answer 1

Відповідь:

Объявляем массив A из 30 элементов.

Объявляем целочисленные переменные I, J, P.

В цикле от 1 до 30 вводим элементы массива A с 1-го по 30-й.

Пояснення:

Answer 2

Данная программа определяет произведение всех четных чисел в массиве 'a', исключая те, которые оканчиваются на ноль, и выводит результат.