Найдите наибольший по модулю элемент заданного массива из 9 действительных чисел...

Question

Найдите наибольший по модулю элемент заданного массива из 9 действительных чисел (программка)
Пожаалууйста!!!! очень срочно

Answer 1

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
  var a:=ReadArrReal('Введите 9 чисел:',9);
  var imax:=0;
  for var i:=1 to 8 do
    if abs(a[i])>abs(a[imax]) then imax:=i;
  Writeln('Наибольшее по модулю: ',a[imax])
end.

Тестовое решение:
Введите 9 чисел: 7 13 0 -4 8 13 -7 -14 2
Наибольшее по модулю: -14