=498 вроде бы я не очень понимаю
Раздели предметы на группы по три если есть лишние предметы то выбери в начале игры первый ход и закрась лишний предмет
есле нет лишних предметов то выбери второй ход
дополняй ход другого игрока до четырех предметов
var
a,b,i,S:integer;
x: array[1..100] of integer;
begin
for i:=1 to 31 do
begin
x[i]:=random(1001);
write(x[i]:4);
end;
writeln;
readln(S);
writeln;
for i:=1 to 31 do
begin
if x[i]>S then
write(i:4);
end;
end.
Могут, массив этот вещественных чисел, разве там не может хранится 1?
<span>у программ различается алгоритм конвертирования, и поэтому такое явление и происходит </span>