{* Задачча39 *}

REM basic

' Дана матрица A=[aij] размерности m на n. Удалить из матрицы строку с заданным номером k. Все строки, начиная с k+1 нужно переместить вверх. Число строк уменьшится на 1


CLS
PRINT "Введите число строк матрицы А"
INPUT m 
PRINT "Введите число столбцов матрицы  А"
INPUT n 
Dim a(m,n)
For i=1 To m 
For j=1 To n
PRINT "Введите a("; i; j; ")";
INPUT a(i, j)
Next j
Next i
PRINT "Матрица А"
For i=1 To m
For j=1 To n
PRINT a(i, j);
Next j
PRINT
Next i
m=m-1
For i=k To m
For j=1 To n
a(i, j)=a(i+1, j)
Next j
Next i
For i=1 To m-1 
For j=1 To n
PRINT a (i, j);
Next j
PRINT
Next i
End