{ File: sol1-1.pas } { Scopo: soluzione primo esercizio della prima simulazione di una prova di esonero } procedure Esercizio1 (mat: MATRICE; var vet: VETTORE); var somparz,i,j : integer; begin for i := 1 to N do begin somparz := 0; for j := 1 to M do somparz := somparz+mat[i,j]; vet[i] := somparz; end; end; { Esercizio1 }