Двигаем элементы в двумерном массиве

@_Vladislav_ · Регистрация: 05.04.2016

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

В заданном k-м слое элементов целочисленного прямоугольного массива matrix[n,m] сдвинуть все элементы на p шагов по часовой стрелке. Номер слоя k и количество шагов p задать с консоли.

Например:
Входные данные для n=4, m=5, k=2, p=2;// k -номер слоя, я пометил красным в массиве
v_min=-20;{минимально значение элемента в векторе}
v_max=10;{по аналогии с верхним}

Исходный массив:
7 -2 -11 3 -5
5 2 0 10 1
-15 9 -12 8 -18
0 -10 9 -13 4

Выходной массив:
7 -2 -11 3 -5
5 2 0 10 1
-15 9 -12 8 -18
0 -10 9 -13 4
\\\\\\\\\\\\\\\\\\\\\\\\\

Думал сам, но додумался лишь до того, как обратиться к нужному слою, и то криво и не работает, так что не додумался

Pascal

program poll;
 
const
  n = 4;
  m = 5;
  v_min = -20;
  v_max = 10;
 
var
  l, s, i, j, p, k: integer;
  mas: array[1..n, 1..m] of integer;
  mnosh:set of integer;
 
begin
  randomize;
  for i := 1 to n do
    for j := 1 to m do
      mas[i, j] := random(v_max - v_min + 1) + v_min;
  
  
  writeln('Исходный массив:');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(mas[i, j]:5);
    writeln;
  end;
  writeln;
  {//////////////////////////////////////}
  writeln('Введите номер слоя:');
  readln(k);
  writeln('Введите количесвто шагов:');
  readln(p);
  
  
 for i:=k to n-(k-1) do
 begin
 for j:=k to m-(k-1) do 
 begin
 include(mnosh, mas[i,j]);
 end;
 end;
 
  {writeln('Полученный массив:');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(mas[i, j]:5);
    writeln;
  end;}
 
  writeln;
  for i:=1 to 100 do
  if(i in mnosh) 
  then write(i:5);
  writeln;
end.

Хотел через множества, но потом забил, запускать даже не пробуйте, не рабочий продукт.

	17.04.2016, 17:39