Программа вычисления суммы элементов массива, значения которых парные числа, используя процедуры или функции - 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.

Объяснение кода листинга программы

  1. Программа на языке Free Pascal.
  2. Тип данных mas определен как массив целых чисел.
  3. Функция summa вычисляет сумму четных чисел в массиве a длиной n.
  4. В функции summa используются две переменные: i и s, где i является счетчиком, а s - суммой четных чисел.
  5. Переменная s инициализируется нулем.
  6. Цикл for проходит по всем элементам массива a от 0 до n-1.
  7. Внутри цикла проверяется, является ли текущий элемент массива четным числом (остаток от деления на 2 равен нулю).
  8. Если элемент четный, он добавляется к переменной s.
  9. Функция возвращает значение переменной s.
  10. В основной программе определены переменные a, n и i типа integer.
  11. Цикл for заполняет массив a случайными нечетными числами от 10 до 99.
  12. Для каждого элемента массива выводится его значение, разделенное на 4 символа.
  13. Выводится сообщение о сумме четных чисел в массиве, используя функцию summa.
  14. Программа ожидает ввода с клавиатуры для завершения работы.

Оцени полезность:

15   голосов , оценка 4.133 из 5
Похожие ответы