Двумерный массив 3 на 5 заполнен целыми числами посчитать сумму элементов 1 строки и сумму элементов последнего столбца

Question

Информатика

Агафа

6 марта, 06:09

Двумерный массив 3 на 5 заполнен целыми числами посчитать сумму элементов 1 строки и сумму элементов последнего столбца

+3

Ответы (1)

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

Тигрий · Answer 1

Program BiFi;

Const m=3; n=5;

Var a:array[1 ... m, 1 ... n] of integer;

i, j, k, l:integer;

Begin

k:=0;

l:=0;

for i:=1 to m do begin for j:=1 to n do read (a[i, j]) ;

write (' ') ;

writeln;

end;

for j:=1 to n do k:=a[1, j]+k;

for i: = 1 to m do l:=a[i, 5]+l;

writeln (k) ;

writeln (l) ;

readln;

end.