Составить программу в паскале Массив задан датчиком случайных чисел на интервале [-37, 66]. Найти наибольший и наименьший элемен
Составить программу в паскале Массив задан датчиком случайных чисел на интервале [-37, 66]. Найти наибольший и наименьший элементы и их номера. Размер массива произвольный, но не больше 100
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin var a:=ArrRandom(ReadInteger('n='),-37,66); a.Println; var (imin,imax):=(a.IndexMin,a.IndexMax); Writeln('Минимальный элемент №',imin+1,' равен ',a[imin]); Writeln('Максимальный элемент №',imax+1,' равен ',a[imax]); end.