Предмет: Информатика,
автор: koshak98
(Pascal) Найти наименьший элемент в числовом массиве m(20) который лежит в интервале [10..50] /// Короче говоря,нужна программа с массивом,вводим 20 любых чисел,и из этих чисел нужно вывести наименьшее число которое лежит в интервале от 10 до 50.
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: Математика,
автор: zelenyjlipton
Предмет: Математика,
автор: KeFuReK
Предмет: Математика,
автор: aluadauletova51
Предмет: Алгебра,
автор: aensepbaeva1
Предмет: История,
автор: Shena777