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
writeln;
for o: integer :=1 to n do
a[m, o] := random(30) + 1;
//+1 - чтобы избежать деления на ноль
write(a[m, o] : 5, ' ')
end
end;
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.
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.