{ File: sol1-2.pas } { Scopo: soluzione secondo esercizio della prima simulazione di una prova di esonero } function Esercizio2 (var f : text; h1, h2, k1, k2 : integer): integer; var i : 1..N; j : 1..M; mat : TipoMatrice; massimo : integer; begin for i := 1 to N do for j := 1 to M do read(f, mat[i,j]); massimo := -MAXINT; for i := h1 to h2 do for j := k1 to k2 do if mat[i,j] > massimo then massimo := mat[i,j]; Esercizio2 := massimo end; { Esercizio2 }