{ Найти наибольшее из четырёх чисел. }
program max_4;
var
a,b,c,d,max,max1,max2 : real;
{процедура поиска наибольшего из двух элементов}
procedure bol2( aa,bb : real; var maxmax : real );
begin
if aa>bb then maxmax:=aa
else maxmax:=bb;
end;
begin
write('введте a,b,c,d через пробел ');
readln(a,b,c,d);
{Находим наибольшее из a и b, результат присваиваем в max1}
bol2(a,b,max1);
{Находим наибольшее из c и d, результат присваиваем в max2}
bol2(c,d,max2);
{Находим наибольшее из max1 и max2, результат присваиваем в max}
bol2(max1,max2,max);
writeln('max=',max);
readln;
end.
Скачать пример
|
