
Вычислить разность между максимальным и первым элементом массива М (15) Допускается использование любых операторов

// PascalABC.Net 3.0, сборка 1066
begin
var M:=SeqRandom(15,-25,25).ToArray;
Writeln(Исходный массив М: ,M);
Writeln(Разность максимального и первого элементов: ,M.Max-M[0])
end.
Тестовое решение:
Исходный массив М: [1,-15,24,-14,-3,16,9,-16,5,9,11,19,12,18,-21]
Разность максимального и первого элементов: 23
Оцени ответ