Ответы на вопрос:
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, ведь вполне можно обойтись одной функцией.
Популярно: Информатика
-
12345653227.04.2022 12:55
-
susystgr30.06.2021 11:43
-
Fuvhrcsghinm19.05.2020 20:11
-
BlackElegant25.06.2020 05:26
-
qwerty1111517.06.2020 08:29
-
samnsk10061706.09.2021 15:05
-
Yfnfif261723.06.2023 22:22
-
софа0702200707.10.2021 04:43
-
ПомощникКоторыйЛюбит03.05.2022 17:48
-
настя759421.11.2022 12:41