Если то вот так: 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 день апреля
Возможности графического редактора Photoshop от компании Adobe позволяют делать любые операции над изображениями. Начиная с рисования простых фигур и линий кистью, и заканчивая созданием сложных многослойных композиций с применением корректирующих слоёв, эффектов наложения, фильтров и 3d объектов. С его можно выравнивать цвета и положение объектов на неправильно сделанных снимках, производить восстановление и коррекцию старых фотографий либо повреждённых изображений. Можно делать анимированные изображения, например, gif анимацию. Имея графический планшет можно рисовать настоящие картины, как если бы мы использовали обычную кисть и холст, т.к. большое разнообразие кистей и их настроек позволяет в умелых руках буквально творить чудеса. Инструменты автоматизации, подключаемые фильтры и плагины, а также ряд других профессиональных возможностей позволяют упростить многие операции, а многие делать буквально в 1 клик мыши в автоматическом режиме сразу над несколькими тысячами файлов.
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 день апреля