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

Question

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

Comments

массив вводится с клавиатуры?

---

да

---

var a:array[1..10] of integer;p,i:integer;beginp:=1;for i:=1 to 10 do beginread(a[i]);if a[i]>0 then p*=a[i] else a[i]:=0;end;writeln('Произведение = ',p);for i:=1 to 10 dowrite(a[i],' ');end.

Answer 1

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;<br>write(a[i]:4);
end;
writeln;
write('P = ',p);
end.