Da li je ovo tacno?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Potrebno je napisati program koji za uneti niz brojeva odredjuje proizvod clanova koji su neparni i negativni.

var   i,n,b,p:integer; begin   write('Unesite n:');   readln(n);   s:=0; p:=1;   for i:=1 to n do     begin       write('Unesite clan ',i,':');       readln(b);       if (b<0) and (b mod 2 <> 0) then       p:=p*b;       end;   writeln(p);   readln end.

Ono sto mene zanima jeste da li je ovo tacno ?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

jedino ne znam zasto stoji s:=0; jer se nigde ne koristi promenljiva s, a nije ni deklarisana... Ostatak koda je u redu i promenljiva p ce imati vrednost prozivoda negativnih neparnih brojeva.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

s je visak to znam(to je trebalo da bude suma brojeva ),ono sto mene brine je pocetna vrednost p:=1; zbog koje izbacuje proizvod 1 cak i kada nije,da li je to pogresno?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

U principu jeste pogresno, ali ako stavis na 0 onda neces moci da mnozis, jer 0*nesto je 0.
Mozes da stavis brojac neki da vidis koliko je bilo takvih brojeva, pa ako je bilo 0 da stampas 0, a ako je bilo vise od nula da stampas p.