Написать программу, из двумерного массива переслать все элементы в одномерный?- Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
INPUT m
INPUT n
DIM a(m, n)
DIM b(m * n)
FOR i = 1 TO m
FOR j = 1 TO n
INPUT a(i, j)
NEXT
NEXT
FOR i = 1 TO m
FOR j = 1 TO n
PRINT a(i, j);" ";
NEXT
PRINT
NEXT
PRINT
FOR i = 1 TO m
FOR j = 1 TO n
k = k + 1
b(k) = a(i, j)
NEXT
NEXT
  
FOR i = 1 TO k
PRINT b(i); " ";
NEXT

Похожие записи/страницы:

Leave a Comment