program EsoneroFacSimile;
const
N = 4;
M = 5;
type
MATRICE = array [1..N,1..M] of integer;
VETTORE = array [1..N] of integer;
var
mat : MATRICE;
vet : VETTORE;
filedati : text;
nomefile : string[12];
i,j : integer;
begin
writeln;
writeln('--- inizio programma ---');
writeln;
writeln('nome file di test ?');
readln(nomefile);
assign(filedati, nomefile);
reset(filedati);
for i:=1 to N do
for j:=1 to M do
read(filedati,mat[i,j]);
close(filedati);
writeln('matrice letta:');
for i:=1 to N do
begin
for j:=1 to M do write(mat[i,j]:4);
writeln;
end;
writeln;
writeln('CHIAMATA procedura Esercizio1');
Esercizio1(mat,vet);
writeln;
writeln('stato del vettore dopo l''esecuzione di esercizio1');
for i:=1 to N do write(VET[I]:4);
writeln;
writeln('--- fine programma ---');
end.