Question

Функция.напишите программу для нахождения наибольшего числа из 5 чисел. Для сравнения двух чисел создать соответствующую функцию

Answer 1

function Max(a,b:real):real;
begin
  if a>b then Max:=a
  else Max:=b
end;

var
  a,b,c,d,e,m:real;
  i:integer;
    
begin
  Writeln('Введите 5 чисел: ');
  Read(a,b,c,d,e);
  m:=Max(a,b);
  m:=Max(m,c);
  m:=Max(m,d);
  m:=Max(m,e);
  Writeln('Максимум: ',m)
end.

Пример
Введите 5 чисел:
2.3 4 -5.16 0 0.087
Максимум: 4