Задача №306. Минимум 4 чисел Входные данные Вводится четыре числа. Выходные данные...

Question

Задача №306. Минимум 4 чисел
Входные данные
Вводится четыре числа.
Выходные данные
Необходимо вывести наименьшее из 4-х данных чисел.
4 5 6 7
выводяться 4
Паскаль хелп####

Answer 1

Не используя массив:
Program tt;
Var a, b, c, d, Min: integer;
Begin
Min:=40000
Read(a);
Read(b);
Read(c);
Read(d);
If(aMin:=a;
If(bMin:=b;
If(cMin:=c;
If(dMin:=d
Write(Min);
End.

Comments

Забыл точку запятую после Min:=d

---

И после Min:=40000

---

увидел

Answer 2

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(ReadSeqInteger(4).Min)
end.

Пример
4 5 6 7
4

Comments

Готовая функция, хитро)

---

А как быть вот с произведением?

---

Есть Sum

---

А произведение есть?