Question

задача паскаль. прочитать с экрана 15 чисел, сосчитать сколько положительных, сколько отрицательных. и напечатать каких больше

Answer 1

Ответ:

Программа написана ниже:

Объяснение:

program H;

var i, a, tch, netch : integer;

begin

 for i := 1 to 15 do

 begin

 read (a);

 if a < 0 then

 netch:= netch +1;

  if a > 0 then

 tch:= tch +1;

 end;

 if (tch < netch) then

 writeln ('Нечетных больше чем четных :', netch ,'>', tch);

  if (tch > netch) then

 writeln ('Четных больше чем нечетных :', tch ,'>' ,netch);

end.