Найти произведение ненулевых элементов массива - Turbo Pascal
Формулировка задачи:
В массиве Х(N) найти произведение ненулевых элементов, а также количество элементов, превышающих значение среднего арифметического элементов массива
Решение задачи: «Найти произведение ненулевых элементов массива»
textual
Листинг программы
const n=5; var i,k,pr:integer; x:array[1..n] of integer; sr:real; begin pr:=1; for i:=1 to n do begin readln(a[i]); if a[i]<>0 then pr:=pr*a[i]; sr:=sr+a[i]; end; writeln('pr=',pr); sr:=sr/n; for i:=1 to n do if a[i]>sr then k:=k+1; write('k=',k); readln end.
Объяснение кода листинга программы
- Переменная
n
инициализируется значением 5. - Создаются переменные
i
,k
иpr
типаinteger
и инициализируются значением 1. - Создается переменная
x
типаarray[1..n] of integer
. - Создается переменная
sr
типаreal
. - В цикле
for
сi
от 1 доn
происходит следующее:- Чтение значения элемента массива
a[i]
и сохранение его в переменнойa[i]
. - Если значение
a[i]
не равно нулю, то умножаемpr
наa[i]
и обновляем значениеpr
. - Суммируем значение
a[i]
с переменнойsr
.
- Чтение значения элемента массива
- Выводится значение переменной
pr
. - Вычисляем среднее значение
sr
и сохраняем его в переменнойsr
. - В цикле
for
сi
от 1 доn
происходит следующее:- Если значение
a[i]
больше значенияsr
, то увеличиваем значение переменнойk
на 1.
- Если значение
- Выводится значение переменной
k
. - Программа завершается и выводится сообщение
Readln
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д