Решить в Паскале: Последовательно вводятся N целых чисел. Определить, каких среди них чисел больше: положительных или отрицательных.

Ответы (1)

Епполоний 18.12.2024 3
Const
nn=100;

var
i,n,d:integer;
a:array[1..nn] of integer;

begin
Write('n = '); Read(n);
Randomize;
d:=0;
for i:=1 to n do begin
    a[i]:=Random(21)-10;
    Write(a[i],' ');
    if a[i]>0 then d:=d+1
    else
      if a[i]0 then d:=d-1
    end;
Writeln;
if d>0 then Writeln('Положительных чисел больше')
else
    if d0 then Writeln('Отрицательных чисел больше')
    else Writeln('Положительных и отрицательных поровну')
end.

Пример
n = 13
-1 -5 3 -3 -4 -8 1 6 4 7 -7 10 7
Положительных чисел больше

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

Решить в Паскале: Последовательно вводятся N целых чисел. Определить, каких среди них чисел больше: положительных или отрицатель­ных.

Думаешь ответы не верны?

Решить в Паскале: Последовательно вводятся N целых чисел. Определить, каких среди них чисел больше: положительных или отрицательных.