[laff]

Составить модуль, содержащий следующие подпрограммы определения характеристик прямоугольной числовой матрицы (размером не более чем 10х10):
Найти сумму элементов строки К,


Как сделать сиё?

[Black Raider]

Создать модуль и написать в нем функцию.

Код:

type arr=array [1..10,1..10] of integer;

function sum (a:arr;k:integer):integer;
var sm,i:integer;
begin
sm:=0;
for i:=1 to 10 do
sm:=sm+a[k,i];
result:=sm;
end;