profile
Размещено 4 года назад по предмету Информатика от Rokl123

Помогите составить программу!! ) В "Pascal ABC"

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

  1. Ответ на вопрос
    Ответ на вопрос дан HRAshton
    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.
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.