С использованием функций - Pascal ABC

Формулировка задачи:

С использованием функций Массив А вводится с клавиатуры. Найти сумму его элементов с четными номерами, произведение отрицательных элементов. Размер произвольный.

                    Листинг программы
                
 
                        
                          
                    
var a:array [1..100] of integer; 
n,i,sum,p:integer; 
begin 
Write('Размер массива: ');readln(n); 
p:=1; 
For i:=1 to n do 
begin 
Write('a[',i,'] = ');readln(a[i]); 
if not odd(i) then sum:=sum+a[i]; 
if a[i]<0 then p:=p*a[i]; 
end; 
Writeln; 
Writeln('Сумма с четными номерами - ',sum); 
Writeln('Произведение отрицательных - ',p); 
end.

Решение задачи: «С использованием функций»

Листинг программы

type mas=array [1..100] of integer;
function sum(a:mas;n:integer):integer;
var i,s:integer;
begin
s:=0;
for i:=2 to n do
if not odd(i) then s:=s+a[i];
sum:=s;
end;
function prz(a:mas;n:integer):integer;
var i,p,k:integer;
begin
k:=0;
p:=1;
for i:=1 to n do
if a[i]<0 then
 begin
  k:=1;
  p:=p*a[i];
 end;
if k=0 then prz:=0
else prz:=p;
end;
var a:mas;
    n,i:integer;
begin
write('Размер массива n=');
readln(n);
writeln('Введите элементы массива, целые числа');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
writeln('Сумма с четными номерами=',sum(a,n));
writeln('Произведение отрицательных=',prz(a,n));
end.

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

Создается тип данных mas, который представляет собой массив целых чисел размером от 1 до 100.
Определяется функция sum, которая принимает массив a и номер n в качестве параметров. Эта функция вычисляет сумму элементов массива с четными номерами и возвращает эту сумму.
Определяется функция prz, которая принимает массив a и номер n в качестве параметров. Эта функция вычисляет произведение всех отрицательных элементов массива и возвращает это произведение.
Создается переменная a типа mas и инициализируется пустым массивом.
Пользователю предлагается ввести размер массива n.
Пользователю предлагается ввести элементы массива, целые числа.
Вызывается функция sum с массивом a и номером n в качестве параметров. Результат выводится на экран.
Вызывается функция prz с массивом a и номером n в качестве параметров. Результат выводится на экран.
Программа завершается.