|
Надо только проверку вставить на корректность вводимого номера... как это сделать?
program sch;
const StageCount=5;
HorsCount=10;
FailureProb=0.1;
type intarray=array[1..HorsCount] of integer;
var Hno:integer;
HorsArray:intarray;
MaxDistance:integer;
winner:integer;
i,j:integer;
begin
Write ('Input horseman number ');
Readln ( Hno);
Randomize;
for i:=1 to HorsCount do
HorsArray[i]:=0;
for i:=1 to StageCount do
for j:=1 to Horscount do
if (random>FailureProb) then
HorsArray[j]:=HorsArray[j]+round(random(4))+1;
writeln ('Horseman no. ',Hno,' distance=',HorsArray[Hno],' km');
MaxDistance:=0;
for i:=1 to HorsCount do
if HorsArray[i]>MaxDistance then
begin
MaxDistance:=HorsArray[i];
Winner:=i;
end;
writeln ('Winner is horseman no. ',Winner,'! Distance= ',MaxDistance,' km.');
end.
|