Составить программу в паскале массив задан датчиком случайных чисел на интервале [-37, 66]. найти наибольший и наименьший элементы и их номера. размер массива произвольный, но не больше 100
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017 // Внимание! Если программа не работает, обновите версию!
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.
Пример n= 17 17 21 49 -2 49 30 -3 39 11 20 65 -28 10 14 -30 11 -1 Минимальный элемент №15 равен -30 Максимальный элемент №11 равен 65
// Внимание! Если программа не работает, обновите версию!
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.
Пример
n= 17
17 21 49 -2 49 30 -3 39 11 20 65 -28 10 14 -30 11 -1
Минимальный элемент №15 равен -30
Максимальный элемент №11 равен 65