Найти среднее арифметическое нечетных элементов массива - Pascal
Формулировка задачи:
Ребят помогите!
Дано натуральное число N и последовательность a1,a2,…,aN натуральных чисел, заданных с клавиатуры. Найти среднее арифметическое нечетных элементов массива. Решить задачу для N=10. .(3б.)
заранее спасибо!!!!!!
надо до 21,01,13!!
Решение задачи: «Найти среднее арифметическое нечетных элементов массива»
textual
Листинг программы
Const
n=10;
Var
a: Array[1..n] of Integer;
i,k: Byte;
s: Integer;
BEGIN
Writeln('Введите массив:');
For i:=1 to n do
begin
Readln(a[i]);
If odd(a[i]) Then
begin
s:=s+a[i];
Inc(k);
end;
end;
Writeln('Ср. арифм. нечетных = ',s/k:2:2);
Readln
END.
Объяснение кода листинга программы
- Объявляются константы и переменные:
- n = 10 (размер массива)
- a = Array[1..n] of Integer (массив целых чисел)
- i, k = Byte (номер элемента массива и счетчик нечетных чисел)
- s = Integer (сумма нечетных чисел)
- Выводится сообщение
Введите массив: - Происходит заполнение массива a с помощью цикла for и функции Readln.
- С помощью условного оператора If проверяется, является ли текущее число нечетным.
- Если число нечетное, то оно прибавляется к переменной s, а переменная k увеличивается на единицу.
- После заполнения массива вычисляется среднее арифметическое нечетных чисел путем деления суммы нечетных чисел на количество нечетных чисел.
- Результат выводится на экран с помощью функции Writeln.
- Программа ожидает ввода с помощью функции Readln.