В массиве хранится информация о среднедневной температуре за неделю в декабре. Составьте...

Question

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

Comments

31 одно значение с клавы и причем каждый раз, они издеваются

---

какой язык кстати?

---

Паскаль

---

Кстати не 31 значение, а только 7, 7 дней в неделе же

---

PascalABC.net подойдет?

---

Да

Answer 1

//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.

Comments

Нестандартное решение, мы такие команды ещё не проходили, но всё равно спасибо)

---

вполне стандартное для PascalABC.net

---

стандартные linq запросы