q- basic i varijable (kako rijesiti)

Code:


dim mkey as string

dim niz1(100) as integer
dim niz2(100) as integer

dim n as integer
dim t as integer
dim i as integer
dim j as integer

pocetak:

cls

input "Broj elemenata (<100): "; n

for t = 0 to n-1
    print "niz1(" + str$(t) + ") = ";
    input niz1(t)
next t

for t = 0 to n-1
    print "niz2(" + str$(t) + ") = ";
    input niz2(t)
next t

cls

for t = 0 to n-1
    for i = 0 to n-1
        
        if niz1(t) = niz2(i) then
            swap niz2(t), niz2(i)
        end if
        
        for j = 0 to n-1
            print niz2(j) ; " ";
        next j
        print chr$(13)
        
    next i
next t

print "Rezultat: "
for j = 0 to n-1
    print niz2(j) ; " ";
next j
print chr$(13)

mkey = ""

print "Za novi pocetak stisni 'N' ili bilo koje dugme za kraj"
do while not mkey <> ""
    mkey = inkey$()
    sleep 1
loop

if mkey = "n" or mkey = "N" then goto pocetak