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