Программа вычисления суммы элементов массива, значения которых парные числа, используя процедуры или функции - Free Pascal
Формулировка задачи:
Составить программу (Сумма елементов масива А,значение которых парные числа) с использованием процедур или функций
Решение задачи: «Программа вычисления суммы элементов массива, значения которых парные числа, используя процедуры или функции»
textual
Листинг программы
uses crt; type mas=array of integer; function summa(a:mas;n:integer):integer; var i,s:integer; begin s:=0; for i:=0 to n-1 do if a[i] mod 2=0 then inc(s,a[i]); summa:=s; end; var a:mas; n,i:integer; begin clrscr; randomize; write('n='); readln(n); setlength(a,n); for i:=0 to n-1 do begin a[i]:=10+random(90); write(a[i]:4); end; writeln; write('Сумма четных=',summa(a,n)); readln end.
Объяснение кода листинга программы
- Программа на языке Free Pascal.
- Тип данных
mas
определен как массив целых чисел. - Функция
summa
вычисляет сумму четных чисел в массивеa
длинойn
. - В функции
summa
используются две переменные:i
иs
, гдеi
является счетчиком, аs
- суммой четных чисел. - Переменная
s
инициализируется нулем. - Цикл
for
проходит по всем элементам массиваa
от 0 доn-1
. - Внутри цикла проверяется, является ли текущий элемент массива четным числом (остаток от деления на 2 равен нулю).
- Если элемент четный, он добавляется к переменной
s
. - Функция возвращает значение переменной
s
. - В основной программе определены переменные
a
,n
иi
типа integer. - Цикл
for
заполняет массивa
случайными нечетными числами от 10 до 99. - Для каждого элемента массива выводится его значение, разделенное на 4 символа.
- Выводится сообщение о сумме четных чисел в массиве, используя функцию
summa
. - Программа ожидает ввода с клавиатуры для завершения работы.