Напишите программу на любом известном Вам алгоритмическом языке. На вход…

Question

64

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

icewater · Accepted Answer

63

icewater

30 января 2023

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

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: