Вывести массив и поменять местами 1й и 3й столбец- Basic(Бейсик)

disel

массив
2 2 2 2
0 1 0 2
0 0 1 3
2 0 3 0

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
DIM a(4,4)
DATA 2, 2, 2, 2, 0, 1, 0, 2, 0, 0, 1, 3, 2, 0, 3, 0
FOR i=1 TO 4
FOR j=1 TO 4
READ a(i,j)
NEXT
NEXT
PRINT"ishodnyj massiv"
FOR i=1 TO 4
FOR j=1 TO 4
PRINT a(i,j);" ";
NEXT
PRINT
NEXT
FOR i=1 TO 4
SWAP a(i,1),a(i,3)
NEXT
PRINT"novyj massiv"
FOR i=1 TO 4
FOR j=1 TO 4
PRINT a(i,j);" ";
NEXT
PRINT
NEXT
  
NEXT

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

Leave a Comment