двумерный массив 3 на 5 заполнен целыми числами посчитать сумму элементов 1 строки и сумму элементов последнего столбца
Answers & Comments
BiFi
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.
Answers & Comments
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.