Question

В массиве хранится информация о стоимости 1 килограмма 30 видов конфет. Определить порядковый номер самого дешевого вида конфет. Если таких видов несколько, то должен быть найден номер:
а) первого из них;
б) последнего из них
прошу написать эту программу на паскале, очень надо((!​

Answer 1

===== PascalABC.NET =====

begin

 var a := ReadArrReal('Введите 30 значений:', 30);

 var (i1, i2) := (a.IndexMin, a.LastIndexMin);

 if i1 <> i2 then

   Writeln('Номера самых дешевых конфет: ', i1 + 1, ', ', i2 + 1)

 else

   Writeln('Номер самых дешевых конфет: ', i1 + 1)

end.