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.
Следующий вариант
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.