Программа

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

PRINT

NEXT i

END