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

Question

Информатика

Юрченя

1 июня, 03:45

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

+5

Ответы (1)

Знаешь ответ?

Петяха · 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.