Заданы матрица порядка n и число k. разделить элементы k-й строки на диагональный элемент, расположенный в этой строке. исходную и полученную матрицы вывести на экран.

program array_k;

var k, n: integer;

var a: array[1 ... 15, 1 ... 15] of integer;

begin

writeln ('Задайте порядок матрицы n (0 < n < 15) ');

readln (n);

writeln ('Задайте число k (0 < k < n) ');

readln (k);

for m: integer : = 1 to n do

begin

writeln;

for o: integer : =1 to n do

begin

a[m, o] : = random (30) + 1;

//+1 - чтобы избежать деления на ноль

write (a[m, o] : 5, ' ')

end

end;

writeln;

for m: integer : = 1 to n do

begin

writeln;

for o: integer : = 1 to n do

if m = k then write (a[m, o]/a[k, k] : 5 : 2, ' ')

else write (a[m, o] : 5, ' ');

end

end.