• В массиве хранится информация о среднедневной температуре за неделю в декабре. Составьте программу, которая подсчитает, сколько дней за неделю было с положительной температурой, сколько дней было с отрицательной и нулевой температурой. Найдите максимальную температуру за неделю. Массив вводится с клавиатуры.

Ответы 4

  • Нестандартное решение, мы такие команды ещё не проходили, но всё равно спасибо)
  • вполне стандартное для PascalABC.net
  • стандартные linq запросы
    • Автор:

      guerrero
    • 6 лет назад
    • 0
  • //PascalABC.NET версия 3.3.1590 от 03.12.17//Если программа не запускается, то обновите версиюbegin    var a := ReadArrReal('Введите температуры за неделю', 7);    Writeln('Дней за неделю было с положительной температурой = ', a.Count(x -> x > 0));    Writeln('Дней за неделю было с отрицательной температурой = ', a.Count(x -> x < 0));    Writeln('Дней за неделю было с нулевой температурой = ', a.Count(x -> x = 0));end.
  • Добавить свой ответ

Войти через Google

или

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

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

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