Поменять строки матрицы местами по правилу

@Хазыч · Регистрация: 29.04.2011

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

Дан массив размером n*n,элементы которого целые числа. Если количество строк в массиве четное,то поменять строки местами по правилу:первую строку со второй,третью с четвёртой и т.д.Если количество строк в массиве нечетное,то оставить массив без изменения.

@Puporev · 30.04.2011, 07:52

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:byte;
    x:integer;
begin
clrscr;
repeat
write('Размер матрицы  до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Матрица:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(50)+1;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
if odd(n) then write('Количество строк нечетное, матрица не меняется')
else
 begin
  i:=1;
  while i<n do
   begin
    for j:=1 to n do
     begin
      x:=a[i,j];
      a[i,j]:=a[i+1,j];
      a[i+1,j]:=x;
     end;
    i:=i+2;
   end;
  writeln('Обмен соседних строк');
  for i:=1 to n do
   begin
    for j:=1 to n do
    write(a[i,j]:4);
    writeln;
   end;
 end;
readln
end.

@Хазыч · 30.04.2011, 09:04 **[ТС]**

большое вам спасибо

@ann312 · 04.12.2014, 22:28

а для с++ какой код будет к этой задаче?

@Хазыч 0 / 0 / 0 Регистрация: 29.04.2011 Сообщений: 26
		1
	Поменять строки матрицы местами по правилу 30.04.2011, 00:09. Показов 1715. Ответов 3 Метки нет (Все метки) Дан массив размером n*n,элементы которого целые числа. Если количество строк в массиве четное,то поменять строки местами по правилу:первую строку со второй,третью с четвёртой и т.д.Если количество строк в массиве нечетное,то оставить массив без изменения. 0

@Хазыч 0 / 0 / 0 Регистрация: 29.04.2011 Сообщений: 26
	30.04.2011, 09:04 [ТС]	3
	большое вам спасибо 0

@ann312 0 / 0 / 0 Регистрация: 04.12.2014 Сообщений: 18
	04.12.2014, 22:28	4
	а для с++ какой код будет к этой задаче? 0

Поменять строки матрицы местами по правилу

Решение