{ 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 }