Создать двумерный массив:
1 0 2 0
0 3 0 4
2 0 3 0
0 4 0 1
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | CLSDIM a(4, 4)DATA 1, 0, 2, 0, 0, 3, 0, 4, 2, 0, 3, 0, 0, 4, 0, 1PRINT "massiv"FOR i = 1 TO 4FOR j = 1 TO 4READ a(i, j)PRINT a(i, j);NEXT PRINTNEXT FOR i=1 TO 4FOR j=1 TO 4IF a(i,j)=0 THEN FOR k=j TO 3:a(i,k)=a(i,k+1):NEXT:a(i,4)=0NEXTNEXTPRINT "novyj massiv"FOR i = 1 TO 4FOR j = 1 TO 4PRINT a(i, j);NEXT PRINTNEXT |