Поменять строки местами в двумерном массиве

Поделиться:
code: #pascal
Program massive;
const N = 2;
var
   Mas: array [0..N,0..N] of string;
   i,j: integer;
   str: string;
begin
     writeln('Введите элементы массива: ');
     for i := 0 to N do
         for j := 0 to N do
             read(Mas[i,j]);         
     //перестановка элементов
     for i := 0 to N do
     begin
          j := 0;
          while (j <= N - 1) do
          begin
               str := Mas [i,j];
               Mas[i,j] := Mas [i, j+1];
               Mas [i, j+1] := str;
               j := j + 2;
          end;
     end;
     writeln('Вывод элементов массива: ');
     for i := 0 to N do
     begin
         for j := 0 to N do
             write(Mas[i,j],' ');
         writeln;
     end;
end.

автор: Zerkalka

code: #pascal
var a: array [1..100, 1..100] of integer;
n, k1, k2, j, i, x: integer;
begin
writeln('Введите размер массива <100');
read (n);
for i:=1 to n do
begin
for j:=1 to n do 
begin
a[i,j]:=random(101);
write(a[i,j], ' ');
end;
writeln;
end;
writeln('Введите номер строк, которые нужно поменять местами');
read(k1, k2);
for j:=1 to n do
begin 
x := a[k1, j];
a[k1, j] := a[k2, j];
a[k2, j] := x;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do 
write(a[i,j], ' ');
writeln;
end;
end.

автор: Trall Satklif

Похожие статьи: