Составить ) в "pascal abc" в последовательности действительных чисел a1, а2, аn есть только положительные и отрицательные элементы. вычислить произведение отрицательных элементов р1 и произведе- ние положительных элементов р2. сравнить модуль р1 с модулем р2 и указать, какое из произведений по модулю больше.

194

329

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

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

ерик12840

Информатика

4,7(29 оценок)

Var p1, p2, buf: real; n: byte; begin readln(n); for i: byte : = 1 to n do begin readln(buf); if (buf > 0) then if (p2 = 0) then p2 : = buf else p2 : = p2 * buf else if (p1 = 0) then p1 : = buf else p1 : = p1 * buf; end; writeln('p1 = ', p1, #13, 'p2 = ', p2); if (abs(p1) > abs(p2)) then writeln('|', p1, '| > |', p2, '|') else if (abs(p1) < abs(p2)) then writeln('|', p1, '| < |', p2, '|') else writeln('|', p1, '| = |', p2, '|') end.

айлан8

Информатика

4,5(63 оценок)

// pascalabc.net 3.1, сборка 1213 от 04.04.2016 begin var a: =seqgen(10,i-> i+8,1).toarray; a.println; a: =a.select((x,i)-> (i.isodd? 2*x: ; a.println; end. тестовое решение: 9 10 11 12 13 14 15 16 17 18 9 20 11 24 13 28 15 32 17 36 // pascalabc.net 3.1, сборка 1213 от 04.04.2016 begin var a: =arrrandom(20,-55,120); a.println; writeln('кол-во отрицательных равно ',a.where(x-> x< 0).count) end. тестовое решение: -9 33 -42 -52 102 38 11 -35 51 86 -20 17 66 21 51 37 40 -49 -20 84 кол-во отрицательных равно 7 // pascalabc.net 3.1, сборка 1213 от 04.04.2016 begin var b: =readarrinteger('7 чисел: ',7); var i: =b.indexmin; writeln('минимальный элемент b[',i+1,']=',b[i]) end. тестовое решение: 7 чисел: 23 15 -13 26 -8 4 0 минимальный элемент b[3]=-13 // pascalabc.net 3.1, сборка 1213 от 04.04.2016 begin var a: =readarrinteger('12 чисел: ',12); swap(a[4],a[11]); a.println end. тестовое решение: 12 чисел: 4 7 -3 0 4 6 4 -5 -11 3 5 13 4 7 -3 0 13 6 4 -5 -11 3 5 4

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

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

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

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

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

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

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

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

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

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