Question

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

Answer 1

begin

 var a := ArrRandom(31, -25, 5); a.Println;

 Println('кол-во дней с ''+'' температурой:', a.Count(x -> x > 0));

 Println('кол-во дней с ''-'' температурой:', a.Count(x -> x < 0));

 Println('кол-во дней с ''0'' температурой:', a.Count(x -> x = 0))

end.