Дан одномерный массив А из 10 целых чисел, найти максимальный элемент первой половины массива
ОЧЕНЬ СРОЧНО!!!!! ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!
Среда ПаскальАВС

//PascalABC.NET 3.1 сборка 1200const n = 10;begin    var a:=ArrRandomInteger(n, 0, 100);    a.Println;        Println(a.Take(n div 2).Max);end.

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016begin  var a:=ArrRandom(10,-99,99); a.Println;  Writeln('Результат: ',a[:5].Max)end.Тестовое решение:6 -7 20 50 32 -26 -95 15 31 10Результат: 50