В массиве A[1..N] найти максимальное число и уменьшить все элементы массива ** 5. Вывести...

Question

В массиве A[1..N] найти максимальное число и уменьшить все элементы массива на 5. Вывести полученную последовательность на экран. Помогите пожалуйста!

Answer 1

// PascalABC.NET 3.2, сборка 1385 от 14.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),10,99); a.Println;
  Writeln('Максимальный элемент равен ',a.Max);
  a.Transform(x->x-5); a.Println;
end.

Пример
n= 15
30 73 60 94 45 83 32 11 47 25 44 71 95 60 90
Максимальный элемент равен 95
25 68 55 89 40 78 27 6 42 20 39 66 90 55 85