Найти наибольший элемент массива размером МхN, элементы которого задаются датчиком случайных чисел на интервале [-25; 19].

var

i, max, n : integer; / / объявляем переменные целочисленного типа.

arr : array of integer; / / объявляем массив.

Begin

writeln ('Введите размерность массива:'); / / вывод строки на экран.

read (n); / / считываем размерность массива.

setlength (arr, n); / / выделяем память под массив.

for i: = 0 to (n-1) do / / начало цикла.

begin

arr[i] : = random (-25, 19); / / заполняем элемент массива числом из диапазона - 25; 19.

if (i = 0) then max : = arr[i]; / / считаем первый элемент - максимальным.

if (arr[i] > max) then max : = arr[i]; / / сравниваем элемент с максимумом.

end;

writeln ('Максимальный элемент массива равен: ', max); / / вывод строки на экран.

End.