Question

Se da tabelul B[1..100]. Scrieți un program care va calcula produsul elementelor pare din acest tablou. (Programul trebuie executat doar in PASCAL)
Urgent va rog!!!

Answer 1

Răspuns:

program produs;

var b:array[1..100] of integer;

   n, i, prod:integer;

begin

    write('Dati numarul de elemente al vectorului: ');

    readln(n);

    for i:=1 to n do

        readln(b[i]);

    prod := 1;

    for i:=1 to n do

        if i mod 2 = 0 then

            prod:=prod*b[i];

    writeln('Produsul elementelor pare este: ',prod);

    readln;

end.

Explicație: