Дан массив ТОЛЬКО из отрицательных элементов. Как найти наибольший элемент этого массива (тот, что максимально приближен

program max_el;var a: array [1..10] of integer;max:integer;

beginrandomize;max:=-100;

for i:integer:= 1 to 10 dobegina[i]:=(random(20)+1)*(-1);write(a[i]:4);if a[i]> max then max:=a[i];end;

writeln();writeln(\'Максимальный элемент = \', max)end.

Если диапазон отрицательных чисел не определен, тогда можно в качестве перед поиском максимального элемента задать max := a[1].

program max_el;var a: array [1..10] of integer;max:integer;

beginrandomize;for i:integer:= 1 to 10 dobegina[i]:=(random(1000)+1)*(-1);write(a[i]:5);end;

max:=a[1];

for i:integer:=1 to 10 do if a[i]> max then max:=a[i];

writeln();writeln(\'Максимальный элемент = \', max)end.