{ File: somvett1.pas }

{ Scopo: secondo esempio di uso array unidimensionali }

program SommaVettori;
{ Calcola la somma di due vettori a 3 componenti. }

const
  DIM = 3;

type
  TipoVettore = array [1..DIM] of integer;   { tipo vettore di DIM interi }

var
  v1, v2,                { i due vettori letti }
  somma  : TipoVettore;  { il vettore somma }
  i      : 1..DIM;       { indice del ciclo per scandire le componenti del
                           vettore }

begin { SommaVettori }

  { lettura primo vettore }
  writeln('Immetti il primo vettore !');
  for i := 1 to DIM do                { il vettore deve essere letto una
                                        componente alla volta }
  begin
    write('Componente ', i, ' ? ');
    readln(v1[i])
  end;
  writeln;

  { lettura secondo vettore }
  writeln('Immetti il secondo vettore !');
  for i := 1 to DIM do
  begin
    write('Componente ', i, ' ? ');
    readln(v2[i])
  end;
  writeln;

  { calcolo vettore somma }
  for i := 1 to DIM do
    somma[i] := v1[i] + v2[i];        { N.B. NON si puo` fare direttamente
                                             somma := v1 + v2;             }

  { stampa della somma }
  writeln('Il vettore somma e'':');
  for i := 1 to DIM do                { il vettore deve essere stampato una
                                        componente alla volta }
    writeln('Componente ', i, ' : ', somma[i]);

end. { SommaVettori }