CLS
INPUT "введи размер матрицы " ; n,m
DIM A(n + 1, m)
PRINT "введи матрицу"
FOR i = 1 TO n
FOR j = 1 TO m
'Ввод элементов матрицы
INPUT A(i,j)
NEXT j, i
FOR i = 1 TO n
'Задание начального значения счетчика нулей в каждой строке матрицы
L = 0
FOR j = 1 TO m
'Определение количества нулей в каждой строке матрицы
IF A(i,j) = 0 THEN L = L + 1
NEXT j
'Определение номера строки, где все элементы равны нулю
IF L = S THEN K = i : EXIT FOR
NEXT i
'Сдвиг всех строк на одну позицию вниз, начиная со строки, где все элементы равны нулю
FOR i = n TO K + 1 STEP –1
FOR j = 1 TO m
A(i+1, j) = A(i, j)
NEXT j, i
'Вставка нулей после строки, где все элементы нулевые
FOR j = 1 TO m
A(K + 1, j) = 0
NEXT j
n = n + 1
FOR i = 1 TO n
FOR j = 1 TO m
PRINT A(i,j);
NEXT j
NEXT i
END