В массиве хранится информация о стоимости 1 килограмма 30 видов конфет. Определить порядковый номер самого дешевого вида конфет. Если таких видов несколько, то должен быть найден номер:
а) первого из них;
б) последнего из них
прошу написать эту программу на паскале, очень надо((!
а) первого из них;
б) последнего из них
прошу написать эту программу на паскале, очень надо((!
More Questions From This User See All
Answers & Comments
===== 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.