Question

Здійснити циклічний зсув елементів прямокутної матриці на n елементів вправо або вниз (в залежності від введеного режиму)

Answer 1

Відповідь:

Write('задайте вліво 0 чи вправо 1 зсувати елементи матриці');

Read(a);

for i = 1 to k do

begin

for j = 1 to k do

begin

if a=0 then x[i, j]:=x[i, ((j+n-1) mod k)+1] else x[i, j]:=x[i, ((j-n-1) mod k)+1]

end do;

end;

end do;

end;

x[i,j]

Пояснення:

тут x[i, j] - елементи матриці, k - задане значення (кількість стовпців)