Составить программу нахождения минимального элемента в массиве заполненным используя датчик случайных чисел из промежутка [-50; 50]

var

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

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

Begin

for i: = 1 to 50 do / / начало цикла.

begin

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

if arr[i] < min then / / если элемент массива меньше минимума.

min : = arr[i]; / / делаем текущий элемент массива минимальным.

write (arr[i],' '); / / вывод на экран текущего элемента массива.

end;

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

End.