program SommaVettori;
const
DIM = 3;
type
TipoIndice = 1..DIM;
TipoVettore = array [TipoIndice] of integer;
var
v1, v2, somma : TipoVettore;
procedure StampaVettore (vet: TipoVettore);
var
i : 1..DIM;
begin
for i := 1 to DIM do
writeln('Componente ', i, ' : ', vet[i]);
end;
procedure LeggiVettore (var vet: TipoVettore);
var
i : 1..DIM;
begin
writeln('Immetti un vettore !');
for i := 1 to DIM do
begin
write('Componente ', i, ' ? ');
readln(vet[i])
end;
end;
procedure Somma2Vettori (vet1,vet2: TipoVettore;
var som: TipoVettore);
var
i : 1..DIM;
begin
for i := 1 to DIM do
som[i] := vet1[i] + vet2[i];
end;
begin
LeggiVettore(v1);
writeln;
LeggiVettore(v2);
writeln;
Somma2Vettori(v1, v2, somma);
writeln('Il vettore somma e'':');
StampaVettore(somma)
end.