{ 20SPORTK.PAS } { } { Author: Kii-Shi } { Date : 25.03.2006 http://www.trsek.com } program sportka; uses crt; label znova; var a,b:array [1..6] of integer; i,k,p,n:integer; ch:char; begin znova: clrscr; writeln('Zadaj 6 cisel od 1 do 50 ktore tipujes'); for i:=1 to 6 do readln(a[i]); clrscr; randomize; for i:=1 to 6 do b[i]:=1+random(50); repeat p:=5; for i:=1 to 5 do for k:=i+1 to 5 do if b[i]=b[k] then begin b[k]:=1+random(50); p:=0; end; until p=5;p:=1;n:=0; for i:=1 to 6 do if a[p]=b[i] then begin p:=p+1; n:=n+1; end else p:=p+1; writeln('hadal si tieto cisla: '); for i:=1 to 6 do write(a[i],';');writeln; writeln('pocitac vybral tieto: '); for i:=1 to 6 do write(b[i],';');writeln; writeln('uhadol si ',n,' cisel'); writeln; writeln('opakovat? ANO ; NIE '); ch:=readkey; if ch=chr(13) then goto znova; end.