Процедуры и функции для работы с массивами

 

Сдвиг элементов влево – function type mas=array[0..m] of integer; var i,n,j:integer; a:mas; function sdvigR(n:integer):integer; begin for i:=1 to n  do a[i]:=a[i+1]; end; …  a[i]:=sdvigL(n+1); ...	Сдвиг элементов вправо – function  type mas=array[0..m] of integer; var i,n,j:integer; a:mas; function sdvigR(n:integer):integer; begin for i:=n downto 1 do a[i]:=a[i-1]; end; …
Перестановка двух элементов массива – procedure Procedure Obmen2(Var m : MyArray; n, k1, k2 : integer;); Var x : integer; Begin x:=m[k1]; m[k1] := m[k2]; m[k2] := x; End;

<<Назад