Максимальный по модулю элемент массива | Язык Паскаль
Pascal. Основы программирования Сложные Средние Простые задачи

Максимальный по модулю элемент массива

В однородном массиве, состоящем из 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