Kod: Zaznacz cały
program lotto;
uses CRT;
var w:array[0..5]of integer;
i,j,temp:integer;
b,c,d,y:integer;
bylo:boolean;
begin
clrscr;
writeln('Teraz zostaniesz poproszony o podanie 6 liczb z zakresu od 1 do 49. Nacisnij ENTER.');
readln;
procedure obstawianie;
for b:=1 to 6 do
begin
writeln('Liczba to©:');
readln(d);
if (d)=1) and (d<=49) then
else
begin
writeln('Podajemy liczby tylko z zakresu od 1 do 49!');
y:=y-1;
end;
end;
randomize;
for i:=0 to 5 do
begin
bylo:=false;
temp:=random(48)+1;
for j:=0 to 5 do
begin
if w[j]=temp then
begin
bylo:=true
end;
end;
if bylo=false then
begin
w[i]:=temp;
end
else
begin
i:=i-1;
end;
end;
for i:=0 to 5 do
begin
writeln(w[i]);
end;
readln;
end.
A pyzatym potrzebuje do tego programu dopisać jeszcze kod który będzie zapamiętywał liczby wylosowane i podane i szukał liczb które są trafione i wyświetlał je. Prosze o pomoc.