Как составить программу для решения алгоритма: Дан массив А(n,n). Нужно поменять местами...

Question

Как составить программу для решения алгоритма: Дан массив А(n,n). Нужно поменять местами элементы к- и j- строки этого массива

Comments

язык программирования какой?

---

паскаль

Answer 1

Const
n=10;
var
i,j,k,m,buf:integer;
a:array[1..n,1..n]of integer;
begin
    for i:=1 to n do
        begin
            writeln;
               for m:=1 to n do
                   begin
                       a[i,m]:=random(20);
                       write(a[i,m]:4);
                    end;
        end;
writeln;
writeln('k,j ?');
readln(k,j);
   for m:=1 to n do
      begin
          buf:=a[k,m];
          a[k,m]:=a[j,m];
          a[j,m]:=buf;
       end;
for i:=1 to n do
   begin
       writeln;
          for m:=1 to n do
              write(a[i,m]:4);
    end;
end.
                

Comments

Спасибо большое, но вы как то за мудрено его решили,это получается значение первой строки присваивается другой неизвестной?

---

Нет. Все не так. Вводится с клавиатуры значения 2-х строк, которые надо поменять между собой