Создайте модуль, в котором описана функция F, вычисляющая сумму всех элементов массива А[20].

Question

Информатика

Грунятка

21 декабря, 15:50

Создайте модуль, в котором описана функция F, вычисляющая сумму всех элементов массива А[20].

+3

Ответы (1)

Знаете ответ на вопрос?

Витяся · Answer 1

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.