Поделитесь своими знаниями, ответьте на вопрос:
(pascal) найти наименьший элемент в числовом массиве m(20) который лежит в интервале [10..50] /// короче говоря, нужна программа с массивом, вводим 20 любых чисел, и из этих чисел нужно вывести наименьшее число которое лежит в интервале от 10 до 50.
const MN = 10;
MX = 50;
var
m: array [0..19] of integer;
i, min: integer;
begin
min := MX;
writeln('введите массив: ');
for i := 0 to 19 do
readln(m[i]);
for i := 0 to 19 do
if (m[i] < min) and (m[i] >= MN) then
min := m[i];
writeln('минимальное значение в промежутке [', MN, ';', MX, ']: ', min);
end.