• Дан массив действительных чисел, размерность которого N. Подсчитать сколько в нем отрицательных, положительных и нулевых элементов

Ответы 2

  • Const N = 10;varmas: array [1..N] of integer;i, less, more, zero: integer;beginfor i:=1 to N doread(mas[i]);for i:=1 to N doif mas[i]<0 thenless:=less+1else beginif mas[i]>0 thenmore:=more+1elsezero:=zero+1end;writeln('Меньше 0: '+less+' Больше 0: '+more+' Равно 0: '+zero)end.
    • Автор:

      kaydence
    • 6 лет назад
    • 0
  • const    n = 20;var    a: array [1..n] of integer;    i, positives, negatives, zeros: integer;begin    for i := 1 to n do     begin        a[i] := Random(100) - 50;        Write(a[i], ' ');        if a[i] < 0 then            negatives := negatives + 1        else  if a[i] > 0 then            positives := positives + 1        else            zeros := zeros + 1    end;    writeln;        writeln('x > 0: ', positives);    writeln('x = 0: ', zeros);    writeln('x < 0: ', negatives);end.
    • Автор:

      gordo3fbp
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years