Ребят сделайте пожалуйста программу в паскале. Вводится любое количество чисел...

Question

Ребят сделайте пожалуйста программу в паскале. Вводится любое количество чисел определяемое пользователем и надо из этих чисел вывести наименьшии числа

Comments

2 наименьших

---

ну я это и имел ввиду

Answer 1

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

begin
  var n:=ReadInteger('Укажите количество чисел:');
  var a:=ReadArrReal('Вводите: ',n);
  var m:=a.Min;
  Writeln(a.Where(x->x=m))
end.

Пример
Укажите количество чисел: 6
Вводите:  -3 2.4 -7 0 -7 3
[-7,-7]