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

Паскаль 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.

Произведение чисел положительно, если среди них есть четное количество отрицательных чисел. И отрицательно, если их нечетное количество. Я просто алгоритм напишу 1) Вводим число N 2) Устанавливаем счетчик k = 0 3) Цикл по i от 1 до N 3.1) Вводим очередное число 3.2) Если число < 0, то прибавляем счетчик k = k + 1 3.3) Конец цикла 4) Если число k четное (k mod 2 = 0), то результат положительный Если k нечетное (k mod 2 = 1), то результат отрицательный. 5) Конец А вот делать так, как Sky предлагает, я бы не стал. Он тупо перемножает числа. Произведение может оказаться слишком большим, да оно нам и не нужно.