пожалуйста!!!!!даю 100 баллов!
Составить программу в Паскале для обработки одномерного массива из 10 чисел Х=(-17,3; 13,2; -7; -2,36; 123,4;-0,3; 12,356; 142;0; -1). Вычислить количество элементов массива с нечетными номерами на отрезке [5,1..32,4].
Сделайте пожалуйста сами!!!!
Составить программу в Паскале для обработки одномерного массива из 10 чисел Х=(-17,3; 13,2; -7; -2,36; 123,4;-0,3; 12,356; 142;0; -1). Вычислить количество элементов массива с нечетными номерами на отрезке [5,1..32,4].
Сделайте пожалуйста сами!!!!
More Questions From This User See All
Answers & Comments
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.