RosettaCodeData/Task/Loops-Nested/BASIC256/loops-nested.basic

17 lines
196 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
dim a(20, 20)
for i = 0 to 19
for j = 0 to 19
a[i, j] = int(rand * 20) + 1
next j
next i
for i = 0 to 19
for j = 0 to 19
print a[i, j];" ";
if a[i, j] = 20 then end
next j
next i
end