banjalukaforum.com

Pozzzz

Treba mi pomoc sa jednim zadatkom iz Pascala. Ucitai N brojeva i ispisati koliko ima negativnih, a koliko pozitivnih. Da li ko zna rjesenje

Ja mislim da ide 'vako al, ne fercera

Program Brojevi;
Ues wincrt;
VAR x,i,n,Br1,Br2:Integer;
Begin
Writeln ('Unesi n');
Readln (n);
For i:= 1 to n do
Begin
Write ('X=');
Readln (X);
Br1=0;
Br2=0;
If x>0 Then Br1:=Br1+1;
If x<0 Then Br2:=Br2+1;
end;
Writeln ('Broj pozitivnih brojeva je:', Br1);
Writeln ('Broj negativnih brojeva je:', Br2);
end.

na prvi pogled greska je jer si brojace br1 i br2 stavio u petlju pa ti zvaki put stavi na 0. stavi ih ispred petlje tj definisi ih ispred for petlje

Znam ja

Neću da odgovaram na seljačke teme sa naslovom "Help!" "Please!" "Pomozite" "Hitno" ili šta već ... nauči se manirima ... nije ovo pijaca !

hehe jeli to kod fude zadatak ?

posto imamo internet dok radimo zadatke ,bio bi fazon kada profa zada zadatak da brzo napises na forum i imas 45min da ti neko odradi ...hehe onda ga castis picem

_________________
http://www.codebluestudio.com

Ma neeeeeeeeeeeee
Kod Dzombica

I da, ono za net je super prijedlog

Poz.

pa jarane red je da kazes jesi rijesio zadatak i jesu li savjeti pomogli?

i da ubuduce kad dajes nazive tema nemoj da stavljas debilno "help" nego stavi o cemu se radi.

ok. izvinjavamn se

Nisam imao vremena da odgovaram, ali DA!, pomogli su

Tenx Mangia i Vanjac :O))

Cujemo se...

Sasvim se slazem sa mangom drugi put za temu stavi nesto poput "Zanimljiv zadatak .. pokusajte ga rijesiti" da bi izbjegao flaming