напишите программу на...

Тема в разделе "Информатика", создана пользователем foxtrot, 13 фев 2010.

  1. foxtrot

    foxtrot New Member

    напишите программу на любом известном Вам алгоритмическом языке. На вход программе подается число N. Далее вводится N чисел. Программа определяет,будет ли произведение этих чисел положительным
     
    foxtrot, 13 фев 2010
    #1
  2. vol4enok

    vol4enok New Member

    Паскаль

    uses crt;
    var n,pr,x:integer;
        a: array [1..1000] of integer;
    begin
         write('Введи количество чисел последовательности:');
         readln(n);
         pr:=1;
         for x:=1 to N do
         begin
              readln(a[x]);
              pr:=pr*a[x];
         end;
         if pr>0 then writeln('YES')
            else writeln('NO');
    end.
     
    vol4enok, 13 фев 2010
    #2

Поделиться этой страницей

Наша группа