tengo el siguiente ejercicio:
Cargar un vector A de tamaño n,Luego hay que pasar los datos mayores a 10 a un vector b.
y los datos menores de 10 del vector A hay que pasarlos al vector c.
tengo casi listo el codigo, pero el problema me lo arroja cuando muestra los datos del vector c,es decir, me muestra los datos menores pero ademas me entrega ceros en los datos que no encuentra y entrega todos los valores juntos.
aqui va el codigo: Gracias
program numero_tres_guia_vectores;
uses
wincrt;
type
v= array [1..50] of integer;
var
a,b,c:v;
i,n:integer;
procedure carga_vector;
begin
write('INGRESE EL TAMAÑO DEL VECTOR:');
readln(n);
for i:=1 to n do
begin
write('INGRESE EL VALOR a[',i,']:');
readln(a
);
end;
end;
procedure pasar_a_b;
begin
for i:=1 to n do
begin
if a>10 then
b:=a;
end;
for i:=1 to n do
if b>10 then
write(b:5);
end;
procedure pasar_a_c;
begin
for i:=1 to n do
begin
if a<=10 then
c:=a;
end;
for i:=1 to n do
if c<=10 then
write(c:5);
end;
begin
carga_vector;
pasar_a_b;
pasar_a_c;
end
