Doisom
7 год назад
(Pascal) Найти наименьший элемент в числовом массиве m(20) который лежит в интервале [10..50] /// Короче говоря,нужна программа с массивом,вводим 20 любых чисел,и из этих чисел нужно вывести наименьшее число которое лежит в интервале от 10 до 50.
ОТВЕТЫ
Denis
Jul 18, 2019
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] lt; min) and (m[i] gt;= 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] lt; min) and (m[i] gt;= MN) then
min := m[i];
writeln(минимальное значение в промежутке [, MN, ;, MX, ]: , min);
end.
206
Смежные вопросы:
