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] mod 2 = 0) and (a[i] mod 10 > 0) then
p:= p*a[i];
writeln(p)
end.
Укажите словами , 1 предложением, что определяет данная программа
Відповідь:
Объявляем массив A из 30 элементов.
Объявляем целочисленные переменные I, J, P.
В цикле от 1 до 30 вводим элементы массива A с 1-го по 30-й.
Пояснення: