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

Question

Информатика

Куприян

10 января, 15:43

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

+4

Ответы (1)

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

Леонтия · 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;