Определить индексы и значения наибольших и наименьших по модулю элементов одномерного массива, нужно написать программу на паскале)

Еще значения)

О... точно, спасибо, что напомнили

возможно ли var писать после begin? обычно его до пишут)

В PascalABC.NET наоборот, рекомендовано писать объявления ВНУТРИ begin ... end

Но если у Вас ностальгические привязанности к ТурбоПаскаль - возможно и ДО написать.

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018Внимание! Если программа не работает, обновите версию!Массив индексирован ОТ НУЛЯ !!!begin  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;  var (imin,imax):=(a.IndexMin,a.IndexMax);  Writeln('Индекс минимального элемента- ',imin,', максимального- ',imax);  Writeln('Максимум и минимум равны ',a[imax],', ',a[imin])end.Примерn= 2045 5 -3 16 -37 24 -2 2 49 25 0 -37 17 26 -38 7 -11 21 3 -7Индекс минимального элемента- 14, максимального- 8Максимум и минимум равны 49, -38Начиная с данной сборки PascalABC.NET вывод можно оформлять и так:begin  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;  var (imin,imax):=(a.IndexMin,a.IndexMax);  Writeln($'Min a[{imin}]={a[imin]}, max a[{imax}]={a[imax]}')end.Примерn= 2040 -13 -7 7 45 -28 3 -40 37 45 10 47 -38 -39 25 -46 45 -44 42 44Min a[15]=-46, max a[11]=47