Составить программу, позволяющую в одномерном массиве, состоящем из N вещественных элементов, вычислить: наименьший из элементов массива, принадлежащих отрезку [a,b]

 
Pascal

const      n = 20; 
var         
a,b,min : real;         
m : array [1..n] of real;        
i : integer;      
begin   

// формирова массива не пишу

   readln (a,b);   
min := b;    
for i := 1 to n do    
if (m[i]<min)  and    (m[i] >=a ) and (m[i] <=b)
then      
min := m[i];       
writeln (min:3:2);  
 end.

Программа будет работать корректно, если в массиве есть хотя бы один элемент, попадающий в диапозон [a..b].