Question

Только не берите с интернета, пожалуйста! Новую программу! Составить программу в Паскале для обработки одномерного массива из 10 чисел Х=(-17,3; 13,2; -7; -2,36; 123,4;-0,3; 12,356; 142;0; -1). Вычислить количество элементов массива с нечетными номерами на отрезке [5,1..32,4]. В отчет включить программный код и результат работы программы в виде скриншота. Программная реализация обязательна.

Answer 1

// PascalABC.NET

begin

 var x: array of real :=

     (-17.3, 13.2, -7, -2.36, 123.4, -0.3, 12.356, 142, 0, -1);

 x.Indices((v, i) -> i.IsEven and (v.InRange(5.1, 32.4))).Count.Print

end.

Answer 2

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

pascalCopy code
program ArrayProcessing;

const
  N = 10;
  X: array[1..N] of Real = (-17.3, 13.2, -7, -2.36, 123.4, -0.3, 12.356, 142.0, 0, -1);

var
  i, count: Integer;

begin
  count := 0;

  for i := 5 to 32 do
  begin
    if (i mod 2 <> 0) and (i <= N) then
    begin
      if (i mod 4 = 0) then
      begin
        writeln('Element X[', i, '] = ', X[i]:0:3);
        count := count + 1;
      end;
    end;
  end;

  writeln('Number of elements with odd indices in the range [5,1..32,4]: ', count);
end.

Обратите внимание, что в задаче сказано вычислить количество элементов с нечетными номерами на отрезке [5,1..32,4]. Это означает, что мы начинаем с индекса 5 и затем увеличиваем индекс каждый раз на 4, чтобы получить значения 5, 9, 13, 17 и так далее, пока индекс не станет больше 32 (максимального индекса в массиве).

Не могу предоставить вам скриншот, так как моя функциональность ограничивается только текстовыми ответами. Вы можете скопировать программу и выполнить ее на своей локальной среде Паскаля для получения результатов.