• Найти номер первого отрицательного элемента,делящегося на 5 с остатком 2

Ответы 1

  • N := 1; while (N < Size) and (A[N] mod 5 <> 2) and (A[N] >= 0) do Inc(N); if (A[N] mod 5 = 2) and (A[N] < 0) then WriteLn(N) else ('Нету!!! ');
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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