Question

Помогите пожалуйста! Даю 20 балов. Петя написал программу для поиска минимального числа в массиве, состоящем не более, чем из 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.

Answer 1

Ответ:

500

Объяснение:

Это максимально возможное число, которое может входить в массив, именно с ним и начинают сравнивать элементы массива.

Answer 2

Для того чтобы программа работала корректно для любых входных данных, необходимо инициализировать переменную ans значением, которое гарантированно больше всех возможных значений в массиве. В данном случае, все числа в массиве по модулю не превосходят 500, поэтому наименьшее возможное значение, которое можно присвоить ans, это 501.

Таким образом, замените ans := ?; на ans := 501; в программе, и она будет работать корректно для любых входных данных, в том числе и при наличии отрицательных чисел в массиве.