Создайте модуль, в котором описана функция f, вычисляющая сумму всех элементов массива а[20].
100
280
Ответы на вопрос:
Pascal unit math; // имя модуля должно совпадать с именем файла interface const n = 20; type mas = array [1..n] of integer; function f(a : mas) : integer; implementation function f(a : mas) : integer; var i,s : integer; begin s : = 0; for i : = 1 to n do s : = s + a[i]; result : = s; end; end.
Популярно: Информатика
-
ksusha58585922.09.2020 10:33
-
LollyPopsi01.04.2023 17:32
-
yarroslawfd30.05.2020 06:07
-
Шеф555555555501.01.2023 11:35
-
amamam00915.07.2022 23:38
-
LizaIvaskevich22.04.2020 05:42
-
Voight26.08.2021 15:30
-
женя137806.05.2022 10:10
-
diankasht30.07.2022 18:46
-
ivanova4801.05.2020 09:38