Developing.ru

Hidoi писал(а):Pascal
Дана квадратная матрица A(n,n). Выполнить следующие преобразования: поставить К-ю строчку на место главной диагонали.

Дана квадратная матрица A(n,n). Выполнить следующие преобразования: поменять местами К-ю и (К-2)-ю строку матрицы.
Заранее спасибо

Angel666 писал(а):1)
Program diagonal;

const
N = 100;

type
MyArray = array [1..N, 1..N] of Real;

var Mas: MyArray;
a: array [1..N] of Real;
m, i, j, k: integer;
begin
Write ('Vvedite razmernost massiva ');
Readln(m);
for i:=1 to m do
for j:=1 to m do
begin
Write ('Vvedite element massiva ',i,' stroki ',j,' stolbca ');
Readln (Mas[i,j]);
end;
Write ('Vvedite nomer stroki ');
Readln(k);
for i:=1 to m do
a:= Mas[k,i];
for i:=1 to m do
Mas[i,i]:=a;
for i:=1 to m do
for j:=1 to m do
Writeln (Mas[i,j]);
Readln;
end.

2)
Program zamena;

const
N = 100;

type
MyArray = array [1..N, 1..N] of Real;

var Mas: MyArray;
a: array [1..N] of Real;
m, i, j, k: integer;
begin
Write ('Vvedite razmernost massiva ');
Readln(m);
for i:=1 to m do
for j:=1 to m do
begin
Write ('Vvedite element massiva ',i,' stroki ',j,' stolbca ');
Readln (Mas[i,j]);
end;
Write ('Vvedite nomer stroki ');
Readln(k);
for i:=1 to m do
a:= Mas[k,i];
for i:=1 to m do
begin
Mas[k,i]:= Mas[k-2;i];
Mas[k-2,i]:= a;
end;
for i:=1 to m do
for j:=1 to m do
Writeln (Mas[i,j]);
Readln;
end.

PS: должно работать правильно, если будут ошибки пиши.

Пасиб всё работает