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