[ mrmko @ 19.12.2005. 23:52 ] @
molio bih one koji poznaju pascal i c++,da mi prevedu ovaj kod.... program nizovi_zad; uses crt; var niz,s:string; br:array [1..100] of integer; brojac,x,y,g,broj:integer; nul:boolean; begin clrscr; readln(niz); nul:=false; brojac:=0; repeat inc(brojac); s:=copy(niz,1,pos(' ',niz)-1); val(s,br[brojac],g); if br[brojac]=0 then nul:=true; delete(niz,1,pos(' ',niz)); until pos(' ',niz)=0; val(niz,br[brojac+1],g); if br[brojac+1]=0 then nul:=true; for x:=1 to brojac+1 do begin broj:=br[x]; for y:=1 to brojac+1 do begin if ((broj=br[y]) and (x<>y)) then br[y]:=0; end; end; if nul=true then write('0 '); for x:=1 to brojac+1 do begin if br[x]<>0 then write(br[x],' '); end; readln; end. |