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

@arteezybabyrage · Регистрация: 11.01.2021

Author24 — интернет-сервис помощи студентам

Дан двумерный массив из четного числа строк. Поменять местами его строки следующим образом: первую строку поменять со второй, третью с четвертой и так далее.

@Puporev · 12.01.2021, 08:20

Pascal

type strok=array[1..20]of integer;
     mtr=array[1..10] of strok;
var a:mtr;
    x:strok;
    m,n,i,j:integer;
begin
repeat
write('Введите количество строк четное число от 2 до 10 m=');
readln(m);
until(m in [2..10])and(m mod 2=0);
repeat
write('Введите количество столбцов от 2 до 20 n=');
readln(n);
until n in [2..20];
randomize;
writeln('Исходная матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i][j]:=10+random(90);
    write(a[i][j]:3);
   end;
  writeln;
 end;
i:=1;
while i<m do
 begin
  x:=a[i];
  a[i]:=a[i+1];
  a[i+1]:=x;
  i:=i+2;
 end;
writeln('Перестановка строк');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i][j]:3);
  writeln;
 end;
end.

@arteezybabyrage 0 / 0 / 0 Регистрация: 11.01.2021 Сообщений: 8
		1
	Поменять местами строки массива 11.01.2021, 21:59. Показов 1525. Ответов 1 Метки pascal, масив (Все метки) Дан двумерный массив из четного числа строк. Поменять местами его строки следующим образом: первую строку поменять со второй, третью с четвертой и так далее. 0

	12.01.2021, 08:20

Опции темы

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

Решение