1. Информатика
  2. Ввести с клавиатуры массив

Ввести с клавиатуры массив из 5 элементов, найти в нем
максимальный и минимальный элементы и их номера.
Пример:
Исходный массив:
4 -5 10 -10 5
максимальный A[3]=10
минимальный A[4]=-10.ПАСКАЛЬ​

садов19 садов19    2   01.04.2020 23:50    21

Ответы
Коteykа Коteykа  12.10.2020 12:37

===== PascalABC.NET =====

begin

 var a := ReadArrInteger(5);

 var (imx, imn) := (a.IndexMax, a.IndexMin);

 Writeln('максимальный A[', imx + 1, ']=', a[imx]);

 Writeln('минимальный A[', imn + 1, ']=', a[imn])

end.


Ввести с клавиатуры массив из 5 элементов, найти в нем максимальный и минимальный элементы и их номе
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
papapapapap papapapapap  08.04.2020 23:16
Решите 3 и 4 задачу на языке паскаля пожайлуста...
eliza3108 eliza3108  08.04.2020 23:16
C++ Напишите программу, которая получает три числа и выводит количество одинаковых чисел в этой цепочке. Входные данные: Входная строка содержит три целых числа, разделённых...
Катерина26121 Катерина26121  13.09.2019 22:50
Впрограмме описан одномерный целочисленный массив с индексами ль 0 до 10. в ниже фрагменте программы массив сначала заполняется,а потом изменяется: for i: =0 to 10 do a [i]:...
Hello111103 Hello111103  29.05.2019 18:50
Сколько существует различных последовательностей из символов а и б,длинной ровно в 10 символов ?...
Pinno4ka Pinno4ka  29.05.2019 18:50
Составте программу вычеления суммы нечётных и произведения чётных чисел в диапазоне от 40 до 60....
ark2006panozs0he ark2006panozs0he  29.05.2019 17:44
Pascal abc. добавить лепестки как на фото. код: uses graphabc; procedure stvol; begin setbrushcolor(clgreen); rectangle(198,300,202,100); end; var u, u0,i,j: integer; begin setwindowsize(400,400);...
rom252 rom252  29.05.2019 17:47
Обеспечивающие предметные информационные технологии (ит) предназначены для создания a. электронного офиса. b. функциональных информационных систем. c. средств защиты. d. ит общего...
12356гад 12356гад  25.08.2019 23:50
Сколько килобайт информации будет занимать книга объемом 137 страниц, в каждой из которых 50 строк по 35 символов в каждой строке....
РоузХз РоузХз  25.08.2019 23:50
Дано целое число, лежащее в диапазоне от 1 до 9999. вывести строку — словесное описание данного числа вида четное двузначное число , нечетное четырехзначное число и т.д. на программе...
deni9514 deni9514  02.02.2022 10:06
Как решить эту задачу с КРУГОВ, да это слишком странно......

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