Pascal. Задание: вывести на экран наименьшее из пяти чисел.

Нужно последовательно сравнить пять чисел. Сначала считаем, что наименьшее число — первое, затем проверяем остальные.

program Minimum;
var a, b, c, d, e, m: real;
begin
readln(a, b, c, d, e);
m := a;
if b < m then m := b;
if c < m then m := c;
if d < m then m := d;
if e < m then m := e;
writeln(m);
end.

Переменная m хранит наименьшее из введённых чисел.

0 0 Пожаловаться