Определить индексы и значения наибольших и наименьших по модулю элементов одномерного массива, нужно написать программу на паскале)
Ответы
Ответ дал:
0
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= 20
45 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= 20
40 -13 -7 7 45 -28 3 -40 37 45 10 47 -38 -39 25 -46 45 -44 42 44
Min a[15]=-46, max a[11]=47
Внимание! Если программа не работает, обновите версию!
Массив индексирован ОТ НУЛЯ !!!
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= 20
45 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= 20
40 -13 -7 7 45 -28 3 -40 37 45 10 47 -38 -39 25 -46 45 -44 42 44
Min a[15]=-46, max a[11]=47
Ответ дал:
0
Еще значения)
Ответ дал:
0
О... точно, спасибо, что напомнили
Ответ дал:
0
возможно ли var писать после begin? обычно его до пишут)
Ответ дал:
0
В PascalABC.NET наоборот, рекомендовано писать объявления ВНУТРИ begin ... end
Ответ дал:
0
Но если у Вас ностальгические привязанности к ТурбоПаскаль - возможно и ДО написать.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад