1
« en: Jueves 30 de Diciembre de 2010, 18:44 »
Hola, estoy intentando hacer el ejercicio que a continuación pongo:
P5_6 Carga una tabla A de tamaño N (constante conocida) con enteros no nulos y construye dos vectores V y C donde almacenarás respectivamente los distintos valores de A y el número de veces que aparecen. Para terminar muestra el resultado.
Ejemplo: N=10 A 3 7 4 1 7 3 7 12 9 1
devuelve V 3 7 4 1 12 9 C 2 3 1 2 1 1
He hecho esto, creo que está bien, se compila y puedo ejecutarlo, pero cuando introduzco los datos me da exitcode 201.
No se como corregirlo.
Aquí está el programa.
Program P5_6;
Const n=10;
Var A,V,C:array[1..n]of integer;
i,j:integer;
Begin
Write('Introduce un vector de tamaño ',n,' con enteros positivos no nulos: ');
For i:=1 to n do begin
Read(A);
V:=0;
C:=0;
end;
For i:=1 to n do begin
j:=i;
Repeat begin
If V= then begin
V:=A[j];
C:=C+1;
end
else if V=A[j] then C:=C+1;
j:=j+1;
end;
Until j=n;
end;
For i:=1 to n do write(A:3);writeln;
For i:=1 to n do If V<>0 then write(V[j]:3);writeln;
For i:=1 to n do If V<>0 then write(C[j]:3);writeln
End.
Si me podeis ayudar os lo agradeceré.
Saludos.