Составить программу в Паскале для обработки массива - вопрос №1010940790 от Виталина5413 09.09.2021 20:11

Question

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

Виталина5413 · Answer

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.

Составить программу в Паскале для обработки массива из 10 чисел Х = (–17,3; 13,2; –7; –2,36; 123,4;