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

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 nechap...

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.. :-)

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