• Вводятся 5 целых чисел вывести количество отрицательных . Помогите плиззз!!!

Ответы 1

  • var    a: array [1..100] of integer;    i, n, k: integer;begin    n := 5;    for i := 1 to n do     begin        read(a[i]);        if a[i] < 0 then k := k + 1;    end;        write(k);end.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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