headr:=1; tailr:=0;
{Procedura }
if (tailr<heads-1)
then begin
tailr:=tailr+1; randomize;
mas[tailr]:=random(90)+10;
End else
if (tailr>=heads-1)
then begin
gotoxy(26,19); textcolor(RED);
Writeln('eror');
end;
End;
zapuskaem proceduru, rezuljtat: 2 0 0 0 0 0 0 0 0 0
ewo raz, rezuljtat: 2 9 0 0 0 0 0 0 0 0
A nuzno sdelatj tak 4tob rezuljtat posle 2 zapuska bil :
9 2 0 0 0 0 0 0 0 0
Nuzno 4tob procedura dobovljala 4islo v na4alo, a 4islo kotoroje tam estj peredvigala vpravo, pomogite pozalusto....
