|
Copia |
   |
|
|
Il secondo vettore assume i valori (Va[i]) e la lunghezza (La) del primo Procedure CopiaVett( Va: Vettore; La: Integer;
Var Vb: Vettore; Var Lb: Integer);
Var
i: Integer;
Begin
For i:=1 to La do
Vb[i]:=Va[i];
Lb:=La;
End;
|
|