Question

В последовательности целых чисел а1, а2, аn найдите среднее
арифметических элементов, больше 2 и меньше 12.
в паскале нужно

Answer 1

const

N = 10; // размер последовательности

var

a: array[1..N] of integer; // последовательность

i, cnt, sum: integer; // счетчик, сумма элементов

begin

cnt := 0; // инициализируем счетчик нулем

sum := 0; // инициализируем сумму нулем

// вводим последовательность

for i := 1 to N do

read(a[i]);

// находим среднее арифметическое элементов, которые больше 2 и меньше 12

for i := 1 to N do

if (a[i] > 2) and (a[i] < 12) then // элемент в нужном диапазоне

begin

cnt := cnt + 1; // увеличиваем счетчик

sum := sum + a[i]; // добавляем элемент к сумме

end;

// выводим результат

writeln('Среднее арифметическое: ', sum / cnt:0:2);

end.