Поменять местами два элемента массива с номерами k1 и k2. Procedure Obmen(Var m : MyArray; n, k1, k2 : integer;);
Var
x : integer;
Begin
x:=m[k1];
m[k1] := m[k2];
m[k2] := x;
End;

LUKARIN    2   04.02.2021 14:09    0