Дан массив из 10 элементов,вычислить произведение чётных элементов,и отрицательные элементы заменить 0?

Program z;
var a:array [1..10] of integer; i,p:integer;
begin
p:=1;
write(Начальный массив: );
for i:=1 to 10 do
begin
a[i]:=random(-10,10);
write(a[i]:4);
if (not(odd(a[i]))) and (a[i]<>0) then p:=a[i]*p;
end;
writeln;
write(Полученный массив: );
for i:=1 to 10 do
begin
if a[i]<0 then a[i]:=0;
write(a[i]:4);
end;
writeln;
write(P = ,p);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.