Question

СРОЧНО!
1)Задать массив,состоящий из 16 вещественных чисел. Найти максимальный элемент массива.
2)Увеличить на 4 каждый положительный элемент массива.
3)Найти количество всех элементов массива,которые меньше 3

Answer 1

Ответ:

--- 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% случаев нужно на паскале. По этому решение приведено именно на нём