Поменять местами k-ю и n-ю строки матрицы

diagen_62 · 17 Апр 2011

Поменять местами k-ю и n-ю строки матрицы

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

const
b=10;m=4;
var a:array[1..b,1..m] of integer;
p,n,k,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.

Vladimir_S · 17 Апр 2011

diagen_62 написал(а):
вот сидел пробовал..помогите исправить ошибки

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. И ещё - а ввод значений матрицы Пушкин делать будет?

Потом, после заполнения матрицы случайными числами, желательно на результат посмотреть. И после процедуры перестановки - тоже. Добавлено.

Код:

const
 n=10;
 m=4;
 k=6;
var 
 a:array[1..n,1..m] of integer;
 p,i,g:integer;
begin
 randomize;
 [COLOR=Red]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; [/COLOR]
 for g:=1 to m do 
  begin
   p:=a[k,g]; 
   a[k,g]:=a[n,g]; 
   a[n,g]:=p; 
  end;
 [COLOR=Red]for i:=1 to n do
  begin
   for g:=1 to m do
    write(a[i,g]:4);
   writeln;
  end[/COLOR]
end.

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

Поменять местами k-ю и n-ю строки матрицы

diagen_62

Новые

Vladimir_S

Ученик

Похожие темы