{* Задача300 *}

REM basic

' Дана Матрица целых чисел X(n,m).Вычесть поэлементно из каждой строки,кроме i-ой , j-УЮ строку.
' Вывести исходную и полученные матрицы.Значения буквенных переменных задавать с клавиатуры


INPUT "kolichestvo strok=", n
INPUT "kolichestvo stolbcov=", m
Dim x(n, m)
INPUT "kakuyu stroku vychitaem=", v
INPUT "krome stroki=", k
RANDOMIZE TIMER
PRINT "ishodnyj massiv"
For i = 1 To n
For j = 1 To m
x(i, j) = INT(RND * 100)
PRINT x(i, j);
Next
PRINT
Next
For i = 1 To n
If i  k Then
For j = 1 To m
x(i, j) = x(i, j) -x(v, j)
Next
End If
Next
PRINT "novyj massiv"
For i = 1 To n
For j = 1 To m
PRINT x(i, j);
Next
PRINT
Next
End