Технический форум - Поменять местами k-ю и n-ю строки матрицы

Цитата:

Сообщение от diagen_62 (Сообщение 505756)

вот сидел пробовал..помогите исправить ошибки

const
b=10;m=4;
var a:array[1..b,1..m] of integer;
p,n,i,g:integer;
begin
randomize;
n:=b;
for i:=1 to n do
for g:=1 to m do begin
p:=a[k,g]; a[k,g]:=a[n,g]; a[n,g]:=p; end
end.

Да вроде правильно, вот только непонятно, зачем вводить b и n? Вполне достаточно одного n. И ещё - а ввод значений матрицы Пушкин делать будет? :D Потом, после заполнения матрицы случайными числами, желательно на результат посмотреть. И после процедуры перестановки - тоже. Добавлено.

Код:

const

 n=10;

 m=4;

 k=6;

var 

 a:array[1..n,1..m] of integer;

 p,i,g:integer;

begin

 randomize;

 for i:=1 to n do

  begin

   for g:=1 to m do

    begin

     a[i,g]:=random(50);

     write(a[i,g]:4);

    end;

   writeln;

  end;

 writeln; 

 for g:=1 to m do 

  begin

   p:=a[k,g]; 

   a[k,g]:=a[n,g]; 

   a[n,g]:=p; 

  end;

 for i:=1 to n do

  begin

   for g:=1 to m do

    write(a[i,g]:4);

   writeln;

  end

end.

Извиняюсь, исправил там еще ошибки.