e0dcfa0c55
* Remove multiple newlines at the end of file * Remove the white space from the end of line
16 lines
169 B
QBasic
16 lines
169 B
QBasic
dim a(3,4)
|
|
for i=0 to 3
|
|
for j=0 to 4
|
|
a(i,j)=i*10+j
|
|
print a(i,j);
|
|
next
|
|
print
|
|
next
|
|
mat b=a
|
|
for i=0 to 3
|
|
for j=0 to 4
|
|
print b(i,j);
|
|
next
|
|
print
|
|
next
|