Сформировать одномерный массив b(30) из случайных целых чисел на интервале [-500,500]. массив распечатать. отсортировать массив по возрастанию. массив распечатать. в массиве найти минимальный элемент и его индекс. распечатать его значения.

debiltrue debiltrue    3   29.09.2019 09:20    1

Ответы
lera1042 lera1042  09.10.2020 02:26

//PascalABC.NET версия 3.4.0.1677 от 17.06.18

//Если программа не запускается, то обновите версию

begin

   var arr := ArrRandomInteger(30, -500, 500);

   Println(arr);

   arr.Sort;

   Println(arr);

   WritelnFormat('Минимальный элемент: B[{0}] = {1}', arr.IndexMin(), arr.Min());

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика