[tim537]

Составить программу поиска большего из четырех чисел с использованием подпрограммы-процедуры поиска большего из двух. Вывести числа в порядке возрастания.
Завтра нужно сдавать очень рассчитываю на Вашу помощь

[YVitaliy]

Если можно использовать модуль Math, бери из него ф-цию max:

Код:

n:=max(max(max(число1, число2), число3), число4);

или реализуй свою max:

Код:

function max(const a, b:Integer):Integer;//если числа дробные, вместо integer'a - single
begin
 if a>b then result:=a else
 result:=b;
end;

а дальше то же самое

[tim537]

Сообщение от YVitaliy

Если можно использовать модуль Math, бери из него ф-цию max:

Код:

n:=max(max(max(число1, число2), число3), число4);

или реализуй свою max:

Код:

function max(const a, b:Integer):Integer;//если числа дробные, вместо integer'a - single
begin
 if a>b then result:=a else
 result:=b;
end;

а дальше то же самое

Спасибо, возможно это нагло сильно, но можно ли полный код?