бесконечность в паскале

Ответ от Krab Bark[гуру]
Никак. Бесконечные значения имеются по стандарту представления чисел только для вещественных.

Ответ от Боголюбский Андрей[новичек]
integer принимает значения от -32768 до +32767, а longint - -2 147 483 648 до +2 147 483 647
к сожалению, никакой тип числовых данных не содержит бесконечности в себе - уж простите 🙂

Ответ от Полосатый жираф Алик[гуру]
А можешь написать бесконечное число? Если можешь, то его и задай...

Ответ от Ирина В[гуру]
ИМХО от Вас требуют не добавить бесконечность, а убрать min := 1000000; "потому, что значение может быть больше", не? Добавьте туда флажок.
Function mini(mas:longint):longint;
Var
i:longint;
flg: boolean;
Begin
flg:=False;
for i := 2 to n do begin
if(((m[i] + m[i - 1]) mod 2) = 0) then begin
if (not flg) or (min > m[i] + m[i - 1]) then min := m[i] + m[i - 1];
flg:=True;
end;
end;
mini:=min;
end;
А если все таки нужна бесконечность, то пусть функция возвращает Real, бесконечность будет, если перед выходом осталось flg=False

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]