Предмет: Информатика,
автор: kotelnikov45
Последовательно
вводятся N целых чисел. Определить, каких среди них чисел
больше: положительных или отрицательных.
Нужно построить блок-схему, заранее спасибо
Ответы
Автор ответа:
0
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 < nc) then Writeln('нечетных больше')
else if(c = nc) then writeln('кол-во четных и нечетных чисел равно');
end;
end.
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 < nc) then Writeln('нечетных больше')
else if(c = nc) then writeln('кол-во четных и нечетных чисел равно');
end;
end.
Автор ответа:
0
а как мне это перевести в блок-схемы?
Похожие вопросы