С использованием функций - Pascal ABC
Формулировка задачи:
С использованием функций
Массив А вводится с клавиатуры. Найти сумму его элементов с четными номерами, произведение отрицательных элементов. Размер произвольный.
Решение задачи: «С использованием функций»
textual
Листинг программы
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 в качестве параметров. Результат выводится на экран.
- Программа завершается.