Question

ПАСКАЛЬ ABC.NET Подсчитать количество элементов массива, значения которых лежат в диапазоне от K до M (Вводятся пользователем)

Answer 1

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 var (k, m) := ReadInteger2('Границы диапазона К и М:');

 a.Where(p -> p in Range(k, m)).Count.Println

end.

Answer 2

Для подсчета количества элементов массива, значения которых лежат в заданном диапазоне от K до M, можно использовать следующий алгоритм на языке Pascal:

1. Объявите переменные:

   • arr: массив, в котором будут храниться элементы.
   • n: количество элементов в массиве.
   • k и m: нижняя и верхняя границы диапазона.

2. Запросите у пользователя значения n, k и m.

3. Создайте массив arr и заполните его значениями, введенными пользователем.

4. Объявите переменную count и установите ее значение равным 0. Эта переменная будет использоваться для подсчета количества элементов, удовлетворяющих условию.

5. Проходите по каждому элементу массива arr:

   • Если значение элемента arr[i] находится в диапазоне от k до m, увеличивайте значение count на 1.

6. Выведите значение переменной count, которая будет содержать количество элементов, удовлетворяющих условию.

Ниже приведен пример кода на языке Pascal, реализующий описанный алгоритм:

pascalCopy code
program CountElementsInRange;

var
  arr: array of Integer;
  n, k, m, count, i: Integer;

begin
  Write('Введите количество элементов в массиве: ');
  ReadLn(n);

  SetLength(arr, n);

  WriteLn('Введите элементы массива:');
  for i := 0 to n - 1 do
  begin
    Write('Элемент ', i + 1, ': ');
    ReadLn(arr[i]);
  end;

  Write('Введите нижнюю границу диапазона (K): ');
  ReadLn(k);
  Write('Введите верхнюю границу диапазона (M): ');
  ReadLn(m);

  count := 0;
  for i := 0 to n - 1 do
  begin
    if (arr[i] >= k) and (arr[i] <= m) then
      count := count + 1;
  end;

  WriteLn('Количество элементов в диапазоне от ', k, ' до ', m, ': ', count);
end.

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