Найти максимальный по модулю элемент массива, массив состоит из n вещественных…

uses crt; var a: array[1… 99] of real; i,j,n: integer; max: real; beginwrite ('Введите n: '); readln (n); writeln ('Исходный массив: '); for i: =1 to n do begin a[i]: =random (99- (-99)+1) -99; write (a[i]: 5); end; writeln; max: =-5; for i: =1 to n do begin if abs (a[i]) >max then begin max: =abs (a[i]); j: =i; end; end; writeln ('Максимальное по модулю число равно ',a[j]); end. Здесь элементы массива — случайные числа от -99 до 99. В ответе выписывается само число, а не его модуль. Если нужен именно модуль, то меняем предпоследнюю строку на writeln ('Максимальное по модулю число равно ',max);