Последовательновводятся N целых чисел

Question

Последовательновводятся N целых чисел. Определить, каких среди них чисел больше: положительных или отрицатель ных. Нужно построить блок-схему, заранее спасибо

Answer 1

45

kruga

30 марта 2023

Const N=10; //твое число Nvar i,c,nc,X: integer; beginfor i: =1 to N dobegin READLN (X); if (X >=0) then inc (c) else inc (nc); end; if (c > nc) then Writeln ('четных больше') elsebegin if (c < nc) then Writeln ('нечетных больше') else if (c=nc) then writeln ('кол-во четных и нечетных чисел равно'); end; end.

пользователи выбрали этот ответ лучшим

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

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

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

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