Question

Описать функцию min (a,b,c) получающую три вещественных числа и находящую минимальное из них. с помощью этой функции найти минимумы из 5 наборов чисел

Answer 1

Var
  a, b, c, d, e: real;
 
function min(a, b, c: real): real;
begin
  if(b < a) and (b < c) then min := b;
  if(c < a) and (c < b) then min := c;
  if(a < b) and (a < c) then min := a;
end;
 
begin
  read(a, b, c, d, e);
  write(min(min(a, b, c), d, e));
end.