(pascal) найти наименьший элемент в числовом массиве m(20) который лежит в интервале [10..50] /// короче говоря,нужна программа с массивом,вводим 20 любых чисел,и из этих чисел нужно вывести наименьшее число которое лежит в интервале от 10 до 50.
program min; 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.
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.