nizovi liberty
dim A(100),B(50),C(50)
input"unesi broj clanova niz A:";N
for I=1 to N
input"unesi I ";I;".clana niza A: ";A(I)
If I mod 2=0 then
K=K+1
C(K)=A(I)
else
L=L+1
B(L)=A(1)
END If
NEXT I
print "clanovi niza C su :"
for I=1 to I
print C(I);space$(2);
next I
print "clanovi niza B su:"
for I=1 to I
print B(I);space$(2);
next I
end
http://www.upload.ba/file.php?file=44dfcad43fd65b024321d337bc821294 