Question

Составить программу, используя одномерные массивы: Найти наименьший элемент в числовом массиве М (20), который лежит в интервале [10.50]​(Pascal)

Answer 1

Ответ:

var

 m: array[1..20] of integer;

 i, min: integer;

begin

 randomize;

 min := 100;

 WriteLn('Массив:');

 for i := 1 to 20 do

 begin

   m[i] := random(100);

   Write(m[i], ', ');

   if (m[i] < min) and (m[i] >= 10) and (m[i] <= 50) then min := m[i];

 end;

 WriteLn;

 if min <> 100 then WriteLn('Минимальный элемент массива в интервале [10..50] равен ', min)

    else WriteLn('Массив не содержит элементов в интервале [10..50]');

end.

Объяснение:

Answer 2

Вот пример программы на языке Pascal, которая находит наименьший элемент в числовом массиве M (20), который лежит в интервале [10, 50]:

pascalCopy code
program FindMinInRange;
var
  M: array[1..20] of Integer;
  i, minValue: Integer;
begin
  // Заполнение массива M случайными значениями
  Randomize;
  for i := 1 to 20 do
    M[i] := Random(100); // Генерируем случайные числа от 0 до 99

  // Инициализация минимального значения
  minValue := 100; // Предполагаем, что максимальное значение в массиве - 100

  // Поиск минимального элемента в интервале [10, 50]
  for i := 1 to 20 do
  begin
    if (M[i] >= 10) and (M[i] <= 50) and (M[i] < minValue) then
      minValue := M[i];
  end;

  // Вывод результата
  if minValue = 100 then
    writeln('В массиве нет элементов в интервале [10, 50]')
  else
    writeln('Наименьший элемент в интервале [10, 50]: ', minValue);

  readln;
end.

Эта программа создает массив M из 20 случайных целых чисел от 0 до 99, затем находит наименьший элемент в интервале [10, 50] и выводит его на экран.