Question

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

Answer 1

const

 n=10;

var

 a: array [1..n] of real;

 i,count:integer;

 x1,x2:real;

begin

 count:=0;

 x1:=5.1;

 x2:=32.4;

 writeln('[',x1,'..',x2,']');

 writeln('На нечётных позициях');

 writeln;

 a[1]:=-17.3;  a[6]:=-0.3;  

 a[2]:=13.2;   a[7]:=12.356;  

 a[3]:=-7;     a[8]:=142;

 a[4]:=-2.36;  a[9]:=0;  

 a[5]:=123.4;  a[10]:=-1;

 for i:=1 to n do

   begin

     writeln(a[i]);

     if (i mod 2 = 1) and (a[i]<=x2) and (a[i]>=x1) then

       inc(count);

   end;

 writeln;

 writeln('Count: ',count);

end.

Answer 2

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

В Паскале программу можно было бы написать следующим образом:

pascalCopy code
program CountOddElements;

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

var
  i, count: integer;

begin
  count := 0;

  for i := 5 to 10 do
  begin
    if (X[i] >= 1.32) and (X[i] <= 32.4) and (i mod 2 <> 0) then
      count := count + 1;
  end;

  writeln('Количество элементов с нечетными номерами на отрезке [5,1..32,4]: ', count);

end.

Обратите внимание, что в данном коде массив X содержит 10 чисел, а отрезок [5,1..32,4] является условным, так как он содержит не целые числа. Поэтому я предположил, что вы хотели обработать элементы массива с 5-го по 10-й, включительно, которые попадают в интервал [1.32, 32.4]. Если это не соответствует вашему намерению, пожалуйста, уточните условия.