Составьте программу вычисления в массиве b максимального среди отрицательных элементов и его номера.

170

267

Посмотреть ответы 3

Ответы на вопрос:

Аннабель0Свит

Информатика

4,4(81 оценок)

Const k=30; var b,a: array [1..k] of integer; i,m,n,k1: integer; begin for i: = 1 to k do b[i]: = random(-15,15); writeln(b); for i: =1 to k do if (b[i]< 0) then begin m: =b[i]; n: =i end; for i: =1 to k do if (b[i]< 0) and (b[i]> m) then begin m: =b[i]; n: =i end; for i: =1 to k do if (b[i]< 0) and (b[i]=m) then begin k1: =k1+1; a[k1]: =i end; writeln ('максимальный отрицательный элемент ',m); if k1> 1 then for i: =1 to k1 do writeln ('номер максимального отрицательного элемента ',a[i]) else writeln ('номер максимального отрицательного элемента ',n) end. пример: [5,8,-11,4,-6,-3,-8,10,15,13,11,-2,0,-5,-14,11,-1,-7,15,-12,-11,5,-2,15,11,0,1,7,8,14] максимальный отрицательный элемент -1 номер максимального отрицательного элемента 17 пример: [14,-4,5,-1,-14,4,-3,9,7,-15,1,9,11,-10,-1,4,1,-10,6,-13,-10,-5,1,9,9,-9,-7,-2,9,12] максимальный отрицательный элемент -1 номер максимального отрицательного элемента 4 номер максимального отрицательного элемента 15

lerikonusheva

Информатика

4,4(98 оценок)

Var i,n,max,k: integer; b: array[1..n] of integer; begin; writeln('сколько элементов в последовательности? '); readln(n); writeln('введите элементы массива'); for i: =1 to n do begin readln(b[i]); if b[i]> max then begin max: =b[i]; k: =i end; writeln('наибольший элемент последовательности = ',max,'. а его порядковый номер ', k); end.

aleksinia

Информатика

4,8(19 оценок)

Ядумаю что нет : ( потомучто человек не может жить 111 год

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.