Question

Написать программу в Pascal, которая вычисляет количество элементов одномерного массива, лежащих в диапазоне от -10 до -2. Массив состоит из 16 вещественных элементов.

Answer 1

===== PascalABC.NET =====

begin

 var a := ReadArrReal(16);

 a.Count(p -> p.InRange(-10.0, -2.0)).Println

end.

Answer 2

Конечно, вот пример программы на Pascal, которая вычисляет количество элементов одномерного массива, лежащих в диапазоне от -10 до -2. Массив состоит из 16 вещественных элементов:

pascalCopy code
program CountElementsInRange;

var
  arr: array[1..16] of real;
  count: integer;
  i: integer;

begin
  count := 0;

  // Заполнение массива случайными значениями
  Randomize;
  for i := 1 to 16 do
    arr[i] := Random(21) - 15; // Генерация случайного вещественного числа в диапазоне [-15, 5]

  // Подсчет количества элементов в диапазоне [-10, -2]
  for i := 1 to 16 do
  begin
    if (arr[i] >= -10) and (arr[i] <= -2) then
      count := count + 1;
  end;

  // Вывод результата
  writeln('Количество элементов в диапазоне от -10 до -2: ', count);
end.

Программа использует генератор случайных чисел, чтобы заполнить массив arr 16 случайными значениями в диапазоне от -15 до 5. Затем она проходит по каждому элементу массива и увеличивает счетчик count, если текущий элемент находится в заданном диапазоне. Наконец, программа выводит результат - количество элементов, удовлетворяющих условию.