Question

Помогите пожалуйста!
Петя написал программу для поиска минимального числа в массиве, состоящем не более, чем из 100 целых элементов. Также известно, что каждое из чисел, хранящихся в массиве, по модулю не превосходит 500. Какое наименьшее число Петя может поставить вместо знака вопроса, чтобы программа работала корректно для любых входных данных (удовлетворяющих этим свойствам)?


var

arr: array[1..100] of longint;

i, n, ans: longint;


begin

readln(n);

for i := 1 to n do

read(arr[i]);

ans := ?;

for i := 1 to n do

if arr[i] < ans then

ans := arr[i];

writeln(ans);

end.