Найти сумму элементов в каждой строке двумерного массива, состоящего из целых чисел

@6ieY6un6 · Регистрация: 13.01.2019

Студворк — интернет-сервис помощи студентам

Найти сумму элементов в каждой строке двумерного массива, состоящего из целых чисел. Размер m x n. Элементы задаются на интервале [-19, 30].

@WildDen · 02.03.2019, 21:22

Pascal

Uses Crt;
const
N=3;
M=4;
var
a: array [1..N,1..M] of integer;
b: array [1..N] of integer;
s,i,j:integer;
begin
for i:=1 to N do 
for j:=1 to M do 
a[i,j]:=random(-19,30);
for i:=1 to N do begin
for j:=1 to M do
write(a[i,j],' ');
writeln;
end;
for i:=1 to N do begin
s:=0;
for j:=1 to M do 
s:=s+a[i,j];
b[i]:=s;
end;
for i:=1 to N do 
writeln('summa ',i,' stroki=',b[i]);
end.

@6ieY6un6 0 / 0 / 0 Регистрация: 13.01.2019 Сообщений: 5
		1
	Найти сумму элементов в каждой строке двумерного массива, состоящего из целых чисел 13.01.2019, 13:41. Показов 4897. Ответов 1 Метки нет (Все метки) Найти сумму элементов в каждой строке двумерного массива, состоящего из целых чисел. Размер m x n. Элементы задаются на интервале [-19, 30]. 0

Опции темы