Пожалуйста!!!!!даю 100 баллов! Составить программу в Паскале для обработки одномерного...

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.