Решите, ! дана последовательность целых чисел, не превосходящих по модулю 10000. ноль – признак конца. вывести минимальное произведение двух элементов этой последовательности.

167

432

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

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

Anzelka13

Информатика

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

Pascalabc.net 3.3.5, сборка 1644 от 23.03.2018 внимание! если программа не работает, обновите версию! begin var a: =readseqintegerwhile(t-> t< > 0).orderby(t-> t).toarray; var k: =a.length-1; var p: =a[0]*a[k]; if p< 0 then writeln(p) else if a[0]< 0 then writeln(a[k-1]*a[k]) else writeln(a[0]*a[1]) end.

Abdul18

Информатика

4,6(65 оценок)

Var n1,n2,n3,n4: real; begin writeln('введите n1, n2, n3, n4'); readln(n1,n2,n3,n4); if n1> 0 then n1: =0; if n2> 0 then n2: =0; if n3> 0 then n3: =0; if n4> 0 then n4: =0; writeln(' n1= ', n1, ' n2= ', n2, ' n3= ', n3, ' n4= ', n4); end.

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

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

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

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

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

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

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

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

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

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