--- PascalABC.NET 3.6.2 ---
begin
var A := ArrRandomReal(16, -99, 99);
A.Println;
Println($'Max Element: {A.Max}'); //Макс элемент
A.Transform(p -> p>0? p + 4 : p); // Увеличиваем на 4 все положительные
A.Count(p -> p < 3).Println; // Считаем числа меньше 3
end.
Объяснение:
На основе личных наблюдений, если автор вопроса не указывает ЯП, то ему в 90% случаев нужно на паскале. По этому решение приведено именно на нём
--- PascalABC.NET 3.6.2 ---
begin
var A := ArrRandomReal(16, -99, 99);
A.Println;
Println($'Max Element: {A.Max}'); //Макс элемент
A.Transform(p -> p>0? p + 4 : p); // Увеличиваем на 4 все положительные
A.Println;
A.Count(p -> p < 3).Println; // Считаем числа меньше 3
end.
Объяснение:
На основе личных наблюдений, если автор вопроса не указывает ЯП, то ему в 90% случаев нужно на паскале. По этому решение приведено именно на нём