1. Информатика
  2. Дан целочисленный массив

Дан целочисленный массив . Найти индекс максимального элемента​

Levi1234 Levi1234    2   10.04.2020 17:11    1

Ответы
дима2855 дима2855  13.10.2020 01:53

// PascalABC.NET

begin

 var n := ReadInteger('N =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 Print(a.IndexMax + 1)  // если индексы от 0, то + 1 не писать

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Королина2022 Королина2022  08.09.2019 04:30
Даны два ненулевых числа. найти сумму, разность, произведение и частное их квадратов. язык c#...
ПростоЧел228 ПростоЧел228  08.09.2019 04:20
Напишите программу, которая считывает пять чисел (каж¬дое между 1 и 30). для каждого считанного числа ваша программа должна вывести строку из равного этому числу количества...
Милая8 Милая8  13.12.2021 13:25
Чему равно N после выполнения алгоритма Б)начало N=52;N=N-22;N=N/3;конец...
Maksijvvi Maksijvvi  13.12.2021 13:26
Опишите модель и как её создавали, какие детали выбирали в скейтч ап...
DARO100 DARO100  28.06.2019 13:20
Граф что это слово означает? а)множество линий,которые могут соединятся точками,б)множество точек,которые могут соединяться линиями,в)обьединение обьектов на основе каких-то...
noeva2005 noeva2005  28.06.2019 13:30
Из каких атрибутов состоит тег ? а) name б) cols в) size г) type д) rows...
yanchikkostyas yanchikkostyas  28.06.2019 13:50
Объём ёмкости а равен 4 литра, а ёмкость в-11 литров. надо отмерить 2 литра....
bogdanmaltsev bogdanmaltsev  28.06.2019 13:50
Найдите и исправьте ошибки в программе: var x,y,i: real; begin read(′введите′ x); y: =10; y: =y*x; wraiteln(y равен , y); end....
xelasaa48 xelasaa48  28.06.2019 13:50
Укажите неправильную запись вещественного числа в языке pascal: 1) 7.0 2) .65785 3) 9.8e3 4) 13....
Oneganin Oneganin  28.06.2019 13:50
Почему профессии связанные с компьютером будут востребованы в будущем?...

Популярные вопросы