Ejercicios Estructura

program ej4tp1;

uses crt;

type

vector=array [1..10] of integer;

var

v,v1: vector;

a,b,i,t,z,x: integer;

procedure cargar(var v: vector; n: integer);

var

m,i,x: integer;

begin

for i:=1 to n do

begin

readln (v[i]);

end;

end;

function suma(w: vector;n: integer): integer;

var

x: integer;

begin

x:=0;

for i:=1 to n do

begin

x:=x+w[i];

end;

suma:=x;

end;

begin

clrscr;

write ('Ingrese la cantidad de elementos del primer vector: ');

readln (a);

cargar(v,a);

write ('Ingrese la cantidad de elementos del segundo vector: ');

readln (b);

cargar (v1,b);

x:=0;

z:=suma(v,a);

t:=suma(v1,b);

write (z); write (' ',t);

readln;

end.

...