Максимальный по модулю элемент массива
В однородном массиве, состоящем из N вещественных элементов, найти максимальный по модулю элемент массива.
const N = 10;
var
arr: array[1..N] of real;
max: real;
i: byte;
begin
randomize;
max := 0;
for i := 1 to N do begin
arr[i] := random()-0.50;
write(arr[i]:6:2);
if abs(arr[i]) > abs(max) then
max := arr[i]
end;
writeln;
writeln(max:6:2);
end.
Пример выполнения программы:
0.18 0.02 0.04 0.06 -0.03 0.34 -0.33 -0.35 0.12 -0.12
-0.35