Если то вот так: begin Writeln('Температура апреля:'); var a:=ArrRandom(30,-10,10); a.Println; var sr:=a.Where(x->x>=0).Average; Writeln('Средняя температура для дней, когда >0 = ',sr:4:1); var k:=a.Where(x->x>=0).Count; if k=0 then writeln('No') else Writeln('Количество дней с температурой >0 = ',k); Writeln('Самая низкая температура: ',a.IndexMin+1,' день апреля'); end.
Пример: Температура апреля: -3 -5 9 7 0 -7 -3 8 -5 9 -5 1 -8 3 0 3 -2 -7 9 4 2 -4 -10 7 1 7 4 3 6 -2 Средняя температура для дней, когда >0 = 4.6 Количество дней с температурой >0 = 18 Самая низкая температура: 23 день апреля
360 и 180
Вроде как-то так, так надеюсь
Объяснение: