Question

Se dă tablou C[1..60] de numere întregi. Scrie un program utilizând o funcție care va calcula produsul elementelor negative a acestui tablou.Vă roog ajutațimă ca chiar nu ințeleg((

Answer 1

Răspuns:

program prod1;

var c:array[1..60] of integer;

   i, n, produs:integer;

begin

    write('Dati lungimea vectorului(intre 1 si 60): ');

    readln(n);

    for i:=1 to n do

        readln(c[i]);

    produs:=1;

    {Parcurgem vectorul si daca avem un element negativ il inmultim}

    for i:=1 to n do

        if c[i] < 0 then {numar negativ}

           produs:=produs*c[i];

    write('Produsul numerelor negative este : ',produs);

    readln;

end.

Explicație: