Информатика, опубликовано 2018-08-22 21:45:06 by Гость
Найти значения минимального элемента одномерного целочисленного массива.
Ответ оставил Гость
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(ReadInteger(n=),10,50);
a.Println;
var m:=a.Min;
Write(Номера минимальных элементов (,m,): );
a.Select((x,i)->Rec(x,i+1)).Where(x->x.Item1=m)
.Select(x->x.Item2).Println(,);
end.
Тестовое решение:
n= 20
34 15 12 31 38 43 12 24 13 49 25 33 16 12 25 33 46 16 38 34
Номера минимальных элементов (12): 3,7,14
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на