Question

Дан массив из N элементов. Найти и вывести элементы этого массива, принадлежащие диапазону от А до В (А и В ввести с клавиатуры). Язык программирования pascal

Answer 1

Ответ:

program arrdiap;

var

 N, A, B, i: Integer;

 M: array of Integer;

begin

 Write ('Введите размерность массива: ');

 ReadLn (N);

 SetLength (M, N);

 Randomize;

 for i := Low (M) to High (M) do begin

   M [i] := Random (100);

   Write (M [i], ' ');

 end;

 WriteLn;

 Write ('Введите диапазон A, B: ');

 ReadLn (A, B);

 WriteLn;

 WriteLn ('Принадлежит диапазону ', A, ' - ', B, ':');

 for i := Low (M) to High (M) do begin

   if (M [i] >= A) and (M [i] <= B) then

     Write (M [i], ' ');

 end;

 ReadLn;

end.

Answer 2

Конечно, вот пример кода на языке Pascal, который решает задачу поиска и вывода элементов массива в заданном диапазоне:

pascalCopy code
program FindElementsInRange;

const
  MAX_SIZE = 100;

var
  arr: array[1..MAX_SIZE] of Integer;
  N, A, B, i: Integer;

begin
  // Ввод размера массива и его элементов
  Write('Введите размер массива: ');
  ReadLn(N);
  
  WriteLn('Введите элементы массива:');
  for i := 1 to N do
  begin
    Write('Элемент ', i, ': ');
    ReadLn(arr[i]);
  end;
  
  // Ввод диапазона
  Write('Введите начальное значение диапазона (A): ');
  ReadLn(A);
  Write('Введите конечное значение диапазона (B): ');
  ReadLn(B);
  
  // Поиск и вывод элементов в заданном диапазоне
  WriteLn('Элементы массива в диапазоне от ', A, ' до ', B, ':');
  for i := 1 to N do
  begin
    if (arr[i] >= A) and (arr[i] <= B) then
      WriteLn(arr[i]);
  end;
  
  ReadLn;
end.

Вы можете скопировать этот код в среду разработки Pascal, сохранить его и запустить для проверки. Программа сначала запросит размер массива и его элементы, а затем попросит ввести начальное и конечное значения диапазона. После этого она выведет элементы массива, которые находятся в указанном диапазоне.