Вывод наименьшего элемента

[koshak98]

Найти наименьший элемент в числовом массиве m(20) который лежит в интервале [10..50] /// Короче говоря,нужна программа с массивом,вводим 20 любых чисел,и из этих чисел нужно вывести наименьшее число которое лежит в интервале от 10 до 50. Большое спасибо.

[newerow1989]

var m:array[1..20] of integer;
    i,min:integer;
begin
   Randomize;
   For i:=1 to 20 do
   begin
      m[i]:=Random(100);
      Write(m[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   min:=100;
   For i:=1 to 20 do
      If (m[i]>=10) and (m[i]<=50) and (min>m[i]) then
         min:=m[i];
   If min=100 then
      Writeln('<no>') else
      Writeln(min);
   Readln;
end.

[koshak98]

Спасибо)

[newerow1989]

[koshak98]

а не могли бы вы помочь,решить еще соседнюю задачу. Тема имеет название "Положительные четные числа". зарание спасибо.

[newerow1989]

Я уже сделал!