Дан массив из 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 
в-третьих, слишком уж очевидно, что программу не ты писал.