В Паскале массивы обычно объявляются в основной программе или процедуре, но их также можно передать в функцию как параметр. Вот пример объявления функции, которая принимает массив чисел и возвращает их сумму:
program ArrayFunction; var arr: array[1..5] of Integer = (1, 2, 3, 4, 5); function SumArray(arr: array of Integer): Integer; var i, sum: Integer; begin sum := 0; for i := Low(arr) to High(arr) do begin sum := sum + arr[i]; end; SumArray := sum; end; begin writeln('Sum of array elements: ', SumArray(arr)); end.
Здесь объявляется массив arr, содержащий целочисленные значения. Функция SumArray принимает массив arr в качестве параметра и возвращает сумму всех его элементов. В основной программе вызывается функция SumArray и выводится результат.
В Паскале массивы обычно объявляются в основной программе или процедуре, но их также можно передать в функцию как параметр. Вот пример объявления функции, которая принимает массив чисел и возвращает их сумму:
program ArrayFunction;var
arr: array[1..5] of Integer = (1, 2, 3, 4, 5);
function SumArray(arr: array of Integer): Integer;
var
i, sum: Integer;
begin
sum := 0;
for i := Low(arr) to High(arr) do
begin
sum := sum + arr[i];
end;
SumArray := sum;
end;
begin
writeln('Sum of array elements: ', SumArray(arr));
end.
Здесь объявляется массив arr, содержащий целочисленные значения. Функция SumArray принимает массив arr в качестве параметра и возвращает сумму всех его элементов. В основной программе вызывается функция SumArray и выводится результат.