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 предложением, что определяет данная программа
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 предложением, что определяет данная программа
More Questions From This User See All