Question

 1) Дан двумерный массив. Найти сумму элементов  в строках c k1 до k2.

Answer 1

type matr=array[1..20,1..20] of integer;
function Summa(a:matr;m,k1,k2:byte):integer;
var i,j:byte;     
s:integer;
begin
s:=0;
for i:=k1 to k2 do
for j:=1 to m do
s:=s+a[i,j];
Summa:=s;
end;