Pascal/Turbo Pascal - suma de Vectores

{Dados dos vectores a y b, almacenar en el vector c el producto}

{del primer elemento de a con el ultimo elemento de b, luego}

{el segundo elemento de a con el penultimo elemento de b y asi}

{sucesivamente}

uses crt;

type

	vector=array[1..20]of word;

var

	a,b,c:vector;

	i,j:integer;

begin

	clrscr;

	randomize;

    {llenar vector a}

	for i:=1 to 20 do

		a[i]:=random(20)+1;

    {llenar vector b}

    for i:=1 to 20 do

        b[i]:=random(20)+1;

	j:=20;

	for i:=1 to 20 do

	begin

		c[i]:=a[i]*b[j];

		j:=j-1;

	end;

	writeln('Vector c = ');

	for i:=1 to 20 do

		write(c[i],' ');

end.