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

Задача

В однородном массиве, состоящем из N вещественных элементов, найти максимальный по модулю элемент массива.

Решение

 

const n = 50;
var
    arr: array[1..n] of real;
    max: real;
    i,j,k: byte;
begin
    randomize;
    max := 0;
    for i:=1 to n do begin
        arr[i] := random()-0.50;
        write(arr[i]:7:2);
        if abs(arr[i]) > abs(max) then
            max := arr[i]
    end;
    writeln;
    writeln(max:7:2);
 
readln;
end.

 

Тема

Одномерные массивы

Уровень

Простые задачи