1) Дан двумерный массив. Найти сумму элементов в строках c k1 до k2.
1) Дан двумерный массив. Найти сумму элементов в строках c k1 до k2.
Гость
Ответ(ы) на вопрос:
Гость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;
Не нашли ответ?
Похожие вопросы