Программа

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

PRINT

NEXT i

END