Proszę o pomoc na gwałt potrzebna
program program_drugi;
uses crt;
var q:array [1..5000] of integer;
i,j,k,los:integer;
BEGIN
randomize;
clrscr;
writeln('Moj generator');
repeat
i:=i+1;
q[i]:=random(6)-(0);
until (i=5000);
//
while j<5000 do
begin
j:=j+1;
repeat
i:=i+1;
if q[j]=q[i] then
begin
k:=1;
end;
until i=5000;
end;
//
writeln(k);
writeln('Generator Pascal');
for i:=1 to 5000 do
begin
los:=random(6)-(0);
write(los,' ');
end;
repeat until keypressed
END.
Gdzie problem?
Problem w niesformatowanym kodzie i nie wstawionym w odpowiednie znaczniki. Rownież nadawanie wątkowi tematu ze słowami "pomocy!" i jego odmianami, nie spowoduje, ze wszyscy się rzucą do rozwiązywania TWOJEGO problemu. Poza tym warto sprawdzić w google wyniki pod: exit code 201 pascal.
Sprawdzałem i dalej nie moge wymyśleć. Nie chce żeby się rzucali, tylko żeby ktoś pomocny mi pomógł. Normalnie formatuje tekst, ale ten program jest celowo bez znacznikó.
Jak nie rozumiesz zaawansowanych pętli to używaj zwykłego FOR.
Problem masz z zerowaniem zmiennych.