Реферат: Программирование с использованием генератора случайных чисел

else write(' ',i+j-1,': ',posle[i+j]:2:6,' ¦ ',i+j+49,': ',posle[i+50+j]:2:6)

end;

repeat

action:=readkey;

case action of

#72: if j>1 then j:=j-1;

#80: if j<32 then j:=j+1;

#27: exitpar:=true;

end;

for i:=1 to 19 do

begin

gotoxy(2,i+4);

if i+j-1<10 then write(' ',i+j-1,': ',posle[i+j]:2:6,' ¦ ',i+j+49,': ',posle[i+50+j]:2:6)

else write(' ',i+j-1,': ',posle[i+j]:2:6,' ¦ ',i+j+49,': ',posle[i+50+j]:2:6)

end;

until exitpar=true;

drawwin;

end;

3: begin

for i:=1 to 10 do

begin

x:=0;

for j:=1 to 10 do

x:=x+posle[(i-1)*10+j];

mat[i]:=x/10;

mat0:=mat0+x;

end;

mat0:=mat0/100;

for i:=1 to 10 do