Двумерный массив. Поменять местами строки матрицы с заданными номерами

@Katia777 · Регистрация: 03.05.2012

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

Дана матрица размера MхN и целые числа К1 и К2 (1<=K1<K2<=M). Поменять местами строки матрицы с номерами К1 и К2.

помогите плиз решить...

@ermolay · 05.05.2012, 14:20

Pascal

const
  nmax=100;
var
  a: array[1..nmax,1..nmax] of integer;
  i,j,m,n,k1,k2,tmp: integer;
begin
  write('Введите размеры массива m и n: ');
  readln(m,n);
  writeln('Исходный массив:');
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  write('Введите 2 числа от 1 до ',m,': ');
  readln(k1,k2);
  
  for j:=1 to n do
  begin
    tmp:=a[k1,j];
    a[k1,j]:=a[k2,j];
    a[k2,j]:=tmp;
  end;
  
  writeln('Полученный массив:');
  for i:=1 to m do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
  
  readln;
end.

@Katia777 0 / 0 / 0 Регистрация: 03.05.2012 Сообщений: 60
		1
	Двумерный массив. Поменять местами строки матрицы с заданными номерами 05.05.2012, 12:50. Показов 1943. Ответов 1 Метки нет (Все метки) Дана матрица размера MхN и целые числа К1 и К2 (1<=K1<K2<=M). Поменять местами строки матрицы с номерами К1 и К2. помогите плиз решить... 0

	05.05.2012, 14:20

Опции темы

Двумерный массив. Поменять местами строки матрицы с заданными номерами

Решение