Есть ответ 👍

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

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

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


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.

// 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

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

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

Caktus Image

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

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

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

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

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

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

Подпишись на наш телеграмм канал

GTP TOP NEWS