NormaVec[x_,norma_]:=Module[{},
(* norma euclideana = 2, norma 1 = 1, norma infinity = 0*)
Which[
norma==2,
Sqrt[Sum[x[[i]]^2,{i,1,Length[x]}]],
norma==1,
Sum[Abs[x[[i]]],{i,1,Length[x]}],
norma==0,
Max[Abs[x]]
]

];

NormaVec[{1,2,3},0]

NormaVec[{1,2,3},2]

NormaVec[{1,2,3},1]