Процедуры (продолжение)

1. Выполните без использования компьютера 

1) Выполните алгоритм для следующих входных данных:

• 2 5 10
• 5 10 2
• 10 5 2

Расскажите, что делает данная программа.

program Test1;
var a,b,c,m:real;
procedure fun(x1,x2:real;var max:real);
begin
if x1>x2 then max:=x1 else max:=x2;
end;
begin
readln(a,b,c);
fun(a,b,m);
writeln(m);
fun(m,c,m);
writeln(m);
end.
2) Напишите программу поиска минимального из пяти чисел.

2. Решение задач

Вместе: proc9.
Самостоятельно: proc8; proc12; proc15.