Как ввести массив в паскале при помощи Function?

11 Ноя 2019 в 19:49
193 +1
0
Ответы
1

В Паскале массивы обычно объявляются в основной программе или процедуре, но их также можно передать в функцию как параметр. Вот пример объявления функции, которая принимает массив чисел и возвращает их сумму:

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 и выводится результат.

19 Апр 2024 в 02:20
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир