uses crt;
const
TOPE = 3;
type
TipoVector = Array [1..TOPE] OF INTEGER;
function soniguales(a,b : tipoVector ; nu :integer ): boolean ;
var
y : integer ;
igual : boolean ;
begin
igual := true ;
for y := 1 to nu do
begin
if (a[y] <> b[y]) then
begin
igual := false ;
end;
soniguales := igual ;
end;
end;
var
v1 , v2 : tipoVector ;
i : integer ;
car : char ;
BEGIN
clrscr;
(** Cargar el primer vector *****)
for I:=1 to tope do
begin
writeln('Lea los numeros del primer Vector N§ ',i );
read(v1[i]);
end;
writeln;
writeln;
(***********)
for I:=1 to tope do
begin
writeln('Lea los numeros del segundo Vector N§',i );
read(v2[i]);
end;
writeln;
writeln;
writeln('El primer Vector:');
for I:=1 to tope do
begin
write(v1[i]:5);
end;
writeln;
writeln;
writeln('El segundo Vector:');
for I:=1 to tope do
begin
write(v2[i]:5);
end;
writeln;
writeln;
if (soniguales(v1,v2, TOPE)) then
begin
write('los dos vectores son iguales')
end
else
begin
write('los dos vectores no son iguales')
end;
car := readKey ;
END.