Question

Дан массив A размерностью N (размерность вводит пользователь). Массив заполнен случайными числами от -15 до 15. Найти минимальный элемент массива. Вывести на экран все значения, равные минимальному и их индексы
Паскаль

Answer 1

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -15, 15);

 a.Println;

 var i := a.IndexMin;

 var m := a[i];

 Println('Минимум равен', m);

 Print('Номера минимальных элементов:');

 a.Indices(p -> p = m).Select(p -> p + 1).Println

end.