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
INPUT "введи номер строки " ; s
'Сдвиг всех строк матрицы, начиная со строки следующей за строкой s , на одну позицию вниз
FOR i = n TO s + 1 STEP –1
FOR j = 1 TO m
A(i+1, j) = A(i, j)
NEXT j, i
'Вставка чисел 100 после строки под номером s
FOR j = 1 TO m
A(s+1, j) = 100
NEXT j
n = n + 1
FOR i = 1 TO n
FOR j = 1 TO m
PRINT A(i,j);
NEXT j
NEXT i
END