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.
