29 lines
495 B
Plaintext
29 lines
495 B
Plaintext
arraybase 1
|
|
max = 10
|
|
dim res(max)
|
|
dim dat(max)
|
|
dat[1] = 1: dat[2] = 2: dat[3] = 1: dat[4] = 4: dat[5] = 5
|
|
dat[6] = 2: dat[7] = 15: dat[8] = 1: dat[9] = 3: dat[10] = 4
|
|
res[1] = dat[1]
|
|
|
|
cont = 1
|
|
posic = 1
|
|
while posic < max
|
|
posic += 1
|
|
esnuevo = 1
|
|
indice = 1
|
|
while indice <= cont and esnuevo = 1
|
|
if dat[posic] = res[indice] then esnuevo = 0
|
|
indice += 1
|
|
end while
|
|
if esnuevo = 1 then
|
|
cont += 1
|
|
res[cont] = dat[posic]
|
|
end if
|
|
end while
|
|
|
|
for i = 1 to cont
|
|
print res[i]; " ";
|
|
next i
|
|
end
|