Question

Дан массив из 5 цифр подсчитать сумму элементов используя procedure для чтения и function для решения a[-3; 100; 10; 12; 18]

Answer 1

type Arr = array [1..5] of integer; //Тип массива

const

  a: Arr = (-3, 100, 10, 12, 18);{Задаем типизированную константу - массив и сразу же присваиваем элементам значения}

procedure ReadArr(a: Arr);{Процедура для чтения массива}

  function Summa : integer; {Вложенная в процедуру функция для вычисления суммы элементов (входной в процедуру параметр виден и в функции)}

  var

    S, i: integer;

  begin //Начало функции

    S:= 0;

    for i:= 1 to 5 do s:= s + a[i]; //Вычисление суммы

    Summa:= s; //Присваиваем значение s функции

  end; //Конец функции

begin //Начало процедуры

  write(Summa); //Выводим значение функции

end; //Конец процедуры

begin //Начало программы

  ReadArr(a);

end. //Конец программы

Если только так. Я использовал процедуру, в которой входным параметром является заданный массив и в процедуре - вложенную функцию, вычисляющую сумму элементов. А вообще непонятно, зачем тут еще и procedure, ведь вполне можно обойтись одной функцией.