👤
a fost răspuns

Este dat un masiv unidimensional cu n elemente. Calculati produsul elementelor negative de pe pozitii impare din masiv.

Răspuns :

program produsNeg;

const nmax=100;

type masiv=array[1..nmax]of real;

var a: masiv;

   i, n: integer;

   produs: real;

begin

 write('n='); read(n);

 produs:=1;

 writeln('introdu elementele tabloului:');

 for i:=1 to n do

  begin

    read(a[i]);

    if (i mod 2=1) and (a[i]<0) then produs:=produs*a[i];

  end;

 writeln('produs= ', produs);

end.

 

Vă mulțumim că ați ales să vizitați site-ul nostru dedicat Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți alte întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Vă așteptăm cu drag să reveniți și nu uitați să ne salvați în lista de favorite!


Ze Teaching: Alte intrebari