Дан одномерный массив А из 10 целых чисел, найти максимальный элемент первой половины...

Question

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

Answer 1

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var a:=ArrRandom(10,-99,99); a.Println;
  Writeln('Результат: ',a[:5].Max)
end.

Тестовое решение:
6 -7 20 50 32 -26 -95 15 31 10
Результат: 50

Answer 2

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