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

diankasht diankasht    3   24.05.2019 21:40    5

Ответы
9570896123 9570896123  20.06.2020 20:17
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.  
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика