Question

Se da un vector cu maxim 10 valori intregi. De elaborat programul( Pascal) care calculeaza produsul valorilor pare din vecto

Answer 1

program p1;
x:array[1..100] of integer;
  var i,n,p:integer;
begin
write('Dati numarul de elemente ');readln(n);
for i:=1 to n do
 write(x[i],' ');read(x[i]);
p:=0;
for i:=1 to n do
{testam daca gasim numere pare}
if x[i] mod 2=0  then
p=p*x[i];
write('Produsul numerelor pare este',p);
readln
end.