Найти среднее арифметическое нечетных положительных элементов - Pascal ABC
Формулировка задачи:
Уважаемые программисты! Надеюсь на вашу поддержку, мне нужна программа
Написать программу которая находит и выводит среднее арифметическое значение всех нечетных положительных элементов заданной числовой последовательности. Количество элементов в последовательности равно 20. Элементы последовательности могут принимать целые значения от -1000 до 1000.
Спасибо!
Решение задачи: «Найти среднее арифметическое нечетных положительных элементов»
textual
Листинг программы
const n=20;
var i,a,k:integer;
sr:real;
begin
sr:=0;
k:=0;
writeln('Введите ',n,' целых чисел от -1000 до 1000');
for i:=1 to n do
begin
readln(a);
if(a>0)and odd(a) then
begin
inc(k);
sr:=sr+a;
end;
end;
if k=0 then write('Нет положительных нечетных чисел')
else
begin
sr:=sr/k;
write('Среднее положительных нечетных чисел=',sr:0:2);
end;
end.
Объяснение кода листинга программы
- Переменная n инициализируется значением 20.
- Объявляются переменные i, a и k типа integer, и переменная sr типа real.
- Выводится приглашение для ввода n целых чисел от -1000 до 1000.
- В цикле for переменной i от 1 до n происходит чтение значения переменной a с помощью функции readln.
- Проверяется условие: если a больше 0 и является нечетным числом.
- Если условие выполняется, увеличивается значение переменной k на единицу и сумма переменной sr увеличивается на значение a.
- Если k равно 0, выводится сообщение о том, что нет положительных нечетных чисел.
- В противном случае, значение переменной sr делится на значение k, и результат выводится на экран.