Ответы
Ответ дал:
0
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=Arr(3,9,1,3,5,8,5,3,6,7,6,5,4,6,1,81); a.Println;
a.IndexesOf(t->t=a.Min).Select(t->t+1).Println
end.
Результат
3 9 1 3 5 8 5 3 6 7 6 5 4 6 1 81
3 15
// Внимание! Если программа не работает, обновите версию!
begin
var a:=Arr(3,9,1,3,5,8,5,3,6,7,6,5,4,6,1,81); a.Println;
a.IndexesOf(t->t=a.Min).Select(t->t+1).Println
end.
Результат
3 9 1 3 5 8 5 3 6 7 6 5 4 6 1 81
3 15
Ответ дал:
0
Тут два элемента с минимальным значением.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад