PC-HELP.CZ

Je dána posloupnost 50 čísel, z nichž některá mohou být stejná. Určete, kolik hodnot se mezi vstupními čísly nachází alespoň dvakrát.


HELP ME pls :-))) vubec nevim jak na to

Tak třeba -načti čísla do pole.Postupě procházej v cyklu všechny čísla,začni kontrolu prvním.

jak jsou ty čísla zadaná? v nějakým TextBoxu a oddělovačem?
zkus to přes to pole a tím FORem kontrolovat jestli už tam jednou nebyl
jak to tak píšu tak si uvědomuju že ty pole budou 2:
1. pole: tam budou zadaná čísla
2. pole: tam budou čísla, který už jsi zkontroloval
takže vlastně bude FOR, který pojede číslo od čísla v 1. poli a v něm vnořený FOR, který bude kontrolovat jestli už není v tom 2. poli

je to aspoň trochu jasné, nebo mám hledat kód?

diky moc... zatim mam pulku programu: ale nvm tady to: "Určete, kolik hodnot se mezi vstupními čísly nachází ALESPOŇ DVAKRÁT. "
netusim jak na to.. :-)

tady mam cely program :-)




begin
memo1.Clear;
for i:=1 to 50 do

begin
randomize;
pole[i]:=random(50) ;
memo1.lines.add('Pozice '+(inttostr(i))+' -> '+(inttostr(pole[i])));
for j:=1 to 50 do

begin
if pole[j] = pole[i] then memo1.lines.add('stejná hodnota je na pozici... '+inttostr(j))

jedine co nechapu jak to mam napsat aby mi vypsalo ty cisla ktere se rovnaj aslespon dvakrat

např vytvoříš pole dvakrat do kterého vždy vložíš nakonec to číslo

aha... napis mi to pls do toho myho zdrojaku :-) jak to ma pokracovat aby mi vypsalo do mema napr: na pozici 1 je cislo 50 :-) pak mi vypise kde se nachazi to cislo alespon dvakrat :-) dekuju