Составьте программу , которая считывает с клавиатуры n чисел и находит сумму и среднее арифметическое значение нечетных чисел

//pascalabc //naaman var       n, sum, num, i : integer;       a : array[1..10000] of integer;       sa : real; begin       write('укажите, сколько будет чисел > ');       readln(n);       write('вводите элементы массива > ');       // обнуляем сумму       sum : = 0;       // и количество искомых элементов       num : = 0;       // ввод элементов массива с одновременным подсчетом       for i : = 1 to n do begin             // ввод             readln(a[i]);             write('ещё > ');             // если введённое нечётное, то             if a[i] mod 2 = 1 then begin                   // добавляем к сумме                   sum : = sum + a[i];                   // и считаем их количество                   num : = num + 1;             end;             // это среднее арифметическое             sa : = sum / num;       end;                   writeln('сумма элементов ', sum);       writeln('среднее арифметическое ', sa); end.

Объявим нужные переменные нам потребуется sum(сумма), average(ср. арифм),  i(для цикла), n(кол-во чисел), x(введенное значение), count(счетчик нечетных) присваиваем переменной n(кол-во чисел) нужное значение. обнуляем summ и count организовываем ввод чисел с клавиатуры через цикл от 0 до n внутри цикла делаем проверку на четность, примерно так: if  x  mod 2 =  1  then (mod 2 обозначает остаток от деление на 2)а здесь увеличиваем переменную sum  = sum + xи счетчик count = count + 1теперь после того как все итерации пройденыпеременная sum хранит значение суммы нечетных чисел.а переменную average надо разделить на count. average = average / countтак мы получим ср. арифметическое для всех нечетных чисел.выводим значение sum и average.

А где сам вопрос?

Объяснение: