Question

Запишите алгоритм нахождения минимума из трех целых чисел а,б,с.

Answer 1

Это самый элементарный алгоритм, я б на вашем месте сам подумал, как сделать это задание.
Как по мне, есть 2 пути решения задачи:
- через if с подставлением по 1 сравнению (долгий)
- через if с подставлением по 2 сравнения (короткий)
берем короткий
var a,b,c:integer;
begin
readln(a,b,c);
if ((a<c) and (a<b)) then write(a);
if ((b<a) and (b<c)) then write(b);
if ((c<a) and (c<b)) then write(c);
end.