Составить программу в Паскале для обработки массива - вопрос №109411241017313 от kateshopina0703 27.08.2021 11:57

Question

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

kateshopina0703 · 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;