100 баллов!
Составить программу в Паскале для обработки массива из 10 чисел Х = (–17,3; 13,2; –7; –2,36; 123,4; –0,3; 12,356; 142; 0; –1). Вычислить количество элементов массива с нечетными номерами на отрезке [5,1..32,4]. В отчет включить программный код и результат работы программы.
Answers & Comments
Ответ:
var A: array[1..10] of real =
(-17.3, 13.2, -7, -2.36, 123.4, -0.3, 12.356, 142, 0, -1);
var i,cnt: integer;
begin
cnt:=0;
for i:=1 to 10 do
begin
if ((A[i]>=5.1) and (A[i]<=32.4) and (i mod 2 <> 0))
then cnt:=cnt+1;
end;
writeln('Количество элементов массива с нечетными номерами',
'на отрезке [5,1..32,4]: ', cnt);
end.