• Решите задачу по информатике в программе паскаль, пожалуйста.

    В массиве А(5) посчитать кол-во положительных и кол-во отрицательных чисел.

Ответы 1

  • var

      A : Array [1..5] of Integer;

      i, e, k  : Integer;

    begin

      e := 0;

      k := 0;

     

      // Здесь задаешь массив

     

    for i := 1 to 5 do

      if A[i] >= 0 then inc(e) else inc(k);

     

    Writeln('Положительных ', i)

    Writeln('Отрицательных', i) 

    end.

    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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