Дан целочисленный линейный массив на N элементов. Найти среднее арифметическое значение нечетных элементов - Pascal ABC

Формулировка задачи:

Дан целочисленный линейный массив на N элементов. Найти среднее арифметическое значение нечетных элементов. Если таких элементов не существует, то среднее арифметическое принять равным нулю. Входные данные: Выходные данные: В первой строке входного потока дано единственное целое число N (0 < N < 32767) Во второй строке перечисленны значения элементов массива по модулю не превышающие 32767. В выходной поток вывести единственное вещественное число с точностью три знака после запятой. Пример входного файла (input.txt): 12 10 -2 3 10 -4 5 -7 4 5 -2 -7 -4 Пример выходного файла (output.txt): -0.200

Решение задачи: «Дан целочисленный линейный массив на N элементов. Найти среднее арифметическое значение нечетных элементов»

Листинг программы

type
    massiv = array [1..1000] of integer;
var
    mass : massiv;
    i, n, summa, count : integer; 
    sred : real; 
     
begin
    write('Введите длину массива : ');readln(n); 
     
    for i:=1 to n do 
        begin
            write('Введите ', i , ' элемент : ');readln(mass[i]); 
            if (mass[i] mod 2 <> 0) then 
                begin
                    count := count + 1; 
                    summa := summa + mass[i]; 
                end;
        end;
    sred := summa / count;
     
    writeln('srednee arifm: ' , sred); 
    readln; 
end.

Объяснение кода листинга программы

В данном коде объявлен тип данных массив с именем massiv и переменной n, которая представляет собой длину этого массива. Далее, объявлены переменные mass, i, count и sred, которые будут использоваться для хранения значений массива, подсчета количества нечетных элементов и вычисления среднего значения соответственно. Затем, происходит цикл for, который выполняется от 1 до n. Внутри цикла, с помощью функции write запрашивается ввод каждого элемента массива и сохраняется в соответствующую переменную mass[i]. Далее, проверяется условие if (mass[i] mod 2 <> 0) - если остаток от деления элемента массива на 2 не равен нулю, то это означает, что элемент нечетный. В этом случае, переменная count увеличивается на единицу, а переменная summa суммирует текущий элемент с предыдущим значением summa. После завершения цикла, вычисляется среднее значение sred путем деления суммы summa на количество count. Наконец, выводится результат - среднее арифметическое значение нечетных элементов массива.