var a:array [1..10] of integer;
i,j:integer;
begin
j:=1;
for i:=1 to 10 do a[i]:=random(10);
writeln ('Массив:');
writeln (a);
for i:=1 to 10 do
if (a[i] mod 2=0) and (a[i]<>0) then j:=j*a[i];
a[10]:=j;
writeln ('ответ:');
end.
var a:array [1..10] of integer;
i,j:integer;
begin
j:=1;
for i:=1 to 10 do a[i]:=random(10);
writeln ('Массив:');
writeln (a);
for i:=1 to 10 do
if (a[i] mod 2=0) and (a[i]<>0) then j:=j*a[i];
a[10]:=j;
writeln ('ответ:');
writeln (a);
end.