Личный кабинет

помогите решить друзья

qbasik
Иван Овчинников ( Пользователь )
Переставить элементы массива так что бы все нули оказались в конце.


CLS

n = 4

m = 4

DIM A(n, m)

A(1, 1) = 0

A(1, 2) = 0

A(1, 3) = 0

A(1, 4) = 1

A(2, 1) = 0

A(2, 2) = 0

A(2, 3) = 2

A(2, 4) = 1

A(3, 1) = 0

A(3, 2) = 3

A(3, 3) = 2

A(3, 4) = 1

A(4, 1) = 4

A(4, 2) = 3

A(4, 3) = 2

A(4, 4) = 1

PRINT "pervonachalnaya matrica"

FOR i = 1 TO n

FOR G = 1 TO m

PRINT A(i, G);

NEXT G

PRINT

NEXT i



DIM B(n, n)

FOR i = 1 TO n

FOR G = 1 TO m

B(i, G) = 0

NEXT G

NEXT i



z = 1

x = 1

FOR i = 1 TO n

FOR G = 1 TO m

IF A(i, G) <> 0 THEN B(z, x) = A(i, G)

IF A(i, G) <> 0 THEN x = x + 1

IF x > m THEN z = z + 1

IF x > m THEN x = 1

NEXT G

NEXT i



PRINT "preobrazovannaya matrica"

FOR i = 1 TO n

FOR G = 1 TO m

PRINT B(i, G);

NEXT G

PRINT

NEXT i

сделал программу работает нужно сделать к ней блок схему помогите пожалуйста



footer logo © Образ–Центр, 2018. 12+