Подпрограммы.

@Ramirez7656 · Регистрация: 01.04.2011

Составить подпрограмму определения суммы элементов одномерного массива.Используя её,вычислить сумму элементов матрицы.

@Dekio · 17.04.2011, 12:15

Pascal

function fsum(arr: Tarr): integer;
var
i, sum: integer;
begin
sum:=0;
for i:=1 to n do
inc(sum,arr[i]);
fsum:=sum;
end;

@Ramirez7656 0 / 0 / 0 Регистрация: 01.04.2011 Сообщений: 6
		1
	Подпрограммы. 17.04.2011, 12:03. Показов 1030. Ответов 1 Метки нет (Все метки) Составить подпрограмму определения суммы элементов одномерного массива.Используя её,вычислить сумму элементов матрицы. 0

	17.04.2011, 12:15

Опции темы

Решение