Информатика, опубликовано 2018-08-22 23:47:40 by Гость
Последовательно вводятся N целых чисел. Определить, каких среди них чисел больше: положительных или отрицательных.Нужно построить блок-схему, заранее спасибо
Ответ оставил Гость
Const
N = 10; //твое число N
var
i,c,nc,X: integer;
begin
for i:=1 to N do
begin
READLN(X);
if(X >= 0) then inc(c)
else inc(nc);
end;
if (c > nc) then Writeln(четных больше)
else
begin
if(c else if(c = nc) then writeln(кол-во четных и нечетных чисел равно);
end;
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на