Feltöltök 10 100 elemet tartalmazó tömböt véletlen számokkal és azt az elemet szeretném megtalálni, ami legalább két tömbben előfordul azonos pozíción, például t4[7]=5 és t8[7]=5. kód lent, de az elemeket megtaláló ciklus megírásában segítene valaki?

Tehát először feltöltöm random számokkal, aztán gondoltam, hogy segítheti a dolgot, ha egyenként kiteszem az elemeket egy összesítő tömbbe, de így se volt ötletem a mindent mindennel összehasonlító ciklusra, amely ráadásul úgy kellene hogy működjön, hogy azonos elemet önmagával ne hasonlítson össze...

Program tomb;

uses crt,dos;

var

t1,t2,t3,t4,t5,t6,t7,t8,t9,t10:array[1..100] of word;

i,j:word;

elem:word;

bigarray:array[1..1000] of word;

begin

randomize;

for i:=1 to 100 do

begin

elem:=random(65000);

t1[i]:=elem;

elem:=random(65000);

t2[i]:=elem;

elem:=random(65000);

t3[i]:=elem;

elem:=random(65000);

t4[i]:=elem;

elem:=random(65000);

t5[i]:=elem;

elem:=random(65000);

t6[i]:=elem;

elem:=random(65000);

t7[i]:=elem;

elem:=random(65000);

t8[i]:=elem;

elem:=random(65000);

t9[i]:=elem;

elem:=random(65000);

t10[i]:=elem;

end;

i:=0;

j:=0;

repeat

inc(i);

inc(j);

bigarray[j]:=t1[i];

inc(j);

bigarray[j]:=t2[i];

inc(j);

bigarray[j]:=t3[i];

inc(j);

bigarray[j]:=t4[i];

inc(j);

bigarray[j]:=t5[i];

inc(j);

bigarray[j]:=t6[i];

inc(j);

bigarray[j]:=t7[i];

inc(j);

bigarray[j]:=t8[i];

inc(j);

bigarray[j]:=t9[i];

inc(j);

bigarray[j]:=t10[i];

until(j=1000);

end.