Задание:
Последовательновводятся N целых чисел. Определить, каких среди них чисел больше: положительных или отрицатель ных. Нужно построить блок-схему, заранее спасибо
Решение:
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.
Знаете другой ответ?