Hola!
me gustaria poder ofrecerte la yauda en pascal pero hace 2 años qu eno lo toco, y ademas en linux no se como usar el compilador de pascal. Por eso espero que entiendas C, que es como lo he hecho.
La idea basica es la de usar un array auxiliar en el q vas metiendo los numeros q hayas leido del array incial. Primero lees un numero del array inicial y lo escribes en el auxiliar, luego recorres el array auxiliar y cuentas las veces q esta ese numero q leiste. Si esta 1 vez lo pasas al array final simplificado, si esta mas de 1 vez no lo escribes en el array simplificado. Y vuelves a repetir la operacion pero leyendo el siguiente numero del array inicial.
#include <stdio.h>
int main (void) {
int v_original [10];
int v_aux [10];
int v_final [10];
int cont,num,i,j=0,k,z=0 ;
for (i=0; i<10; i++) {
printf("Introduce el valor del array incial %d: ", i+1);
scanf("%d",&v_original[i]);
}
for (i=0;i<10;i++) {
cont=0;
num=v_original[i];
v_aux[j]=num;
j++;
for (k=0;k<10;k++)
if ( v_aux[k] == num )
cont++;
if ( cont == 1 ) {
v_final[z]=num;
z++;
}
}
printf("El array simplificado es: \n");
for (i=0;i<z;i++)
printf ("%d \n",v_final[i]);
return 0;
}
Ejemplo de uso:
~$ ./vectunico
Introduce el valor del array incial 1: 1
Introduce el valor del array incial 2: 1
Introduce el valor del array incial 3: 1
Introduce el valor del array incial 4: 2
Introduce el valor del array incial 5: 2
Introduce el valor del array incial 6: 2
Introduce el valor del array incial 7: 3
Introduce el valor del array incial 8: 3
Introduce el valor del array incial 9: 3
Introduce el valor del array incial 10: 4
El array simplificado es:
1
2
3
4
~$
Espero q lo entiendas
Hastaluego