задание:
осуществить циклический сдвиг элементов прямоугольной матрицы на n элементов или вправо или вниз (в зависимости от введённого режима).
то что по идеи следовало бы исправить
program lab;
uses crt;
var
a:array [1..100,1..100] of integer;
n,m,i,j,g,h,l:integer;
begin
writeln ('введите n,m');
readln (n,m);
for i:=1 to n do
for j:=1 to m do
readln (a[i,j]);
for i:=1 to g do
for j:=1 to m-1 do begin
l:=a[h,j];
a[h,j]:=a[h,j+1];
a[h,j+1]:=1;
end;
for i:=1 to n do begin
for j:=1 to m do
writeln (a[i,j]:3);
writeln;end;
readln;
end.
БЛАГОДАРЮ
