Дан массив из 10 вещественных чисел.

Question

Найти минимальный элемент среди элементов, расположенных на отрезке [-3; 10]. Если таких элементов нет, вывести соответствующее сообщение. Вот решение: Program Primer; Const N=16; Type Mas=Array[1..N] of Integer; Var M: Mas; Min: Real; Imin, I : Integer; Begin Writeln('Input array'); For I:=1 to N do Read(M); Min:=31; For I:=1 to N do If (M>=-20) and (M<=30) and (M; Imin:=I; End; If Min=31Then Writeln('Elements between -20and 30 are not found') else Writeln('Min=',Min,' Imin=',Imin); Readln; Readln; End. ПОЧЕМУ-ТО ВЫДАЕТ НЕ ТЕ ЗНАЧЕНИЯ. ПОМОГИТЕ НАЙТИ ОШИБКИ . Ввести массив из 16 целых чисел. Найти минимальный элемент и его индекс среди элементов, значения которых находятся на отрезке [-20; 30]. Если таких чисел нет, вывести соответствующее сообщение. Вот правильное условие

Ирэн Ирэн · Accepted Answer

во-первых, в указанном массиве 16 элементов, а не 10. 
во-вторых, границы - -20 и 30, а не -3 и 10 
в-третьих, слишком уж очевидно, что программу не ты писал.