** Pascal ABC Используя программу ранжирования, найти произведение 3-х наименьших...

Question

На Pascal ABC
Используя программу ранжирования, найти произведение 3-х наименьших элементов массива:
Т= (-2,1,3,-4,2,0,1,-3,5)
Распечатать массив до и после ранжирования.

Comments

Ранжирование это сортировка?

Answer 1

// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017

begin
  var t:=Arr(-2,1,3,-4,2,0,1,-3,5); t.Println;
  Sort(t); t.Println;
  Println('Прозведение:',t[0]*t[1]*t[2]);
end.