Сформировать массив, каждый элемент которого равен сумме элементов в соответствующих столбцах

@CmPunk67 · Регистрация: 11.10.2010

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

2. дан двумерный массив n*m элементы введены с клав. сформировать линейный массив В каждый элемент которого равен сумме элементов в соответствующих столбцах.

@jonni · 23.11.2010, 12:45

2)

Pascal

Program Name;
uses CRT; 
a:array[1..m,1..n]of integer;
b:array[1..n]of integer;
i,j,sum;:integer;
begin
ClrScr;
sum:=0;
for i:=1 to m do 
for j:=1 to n do 
readln(a[i,j]);
for j:=1 to n do begin
for i:=1 to m do begin
sum:=sum+a[i,j];
end;
b[j]:=sum;
sum:=0;
end;
for i:=1 to n do
write(' Новый массив', b[i]);
readln;
end.

@CmPunk67 1 / 1 / 0 Регистрация: 11.10.2010 Сообщений: 85
		1
	Сформировать массив, каждый элемент которого равен сумме элементов в соответствующих столбцах 22.11.2010, 21:54. Показов 1172. Ответов 1 Метки нет (Все метки) 2. дан двумерный массив n*m элементы введены с клав. сформировать линейный массив В каждый элемент которого равен сумме элементов в соответствующих столбцах. 0

	23.11.2010, 12:45

Сформировать массив, каждый элемент которого равен сумме элементов в соответствующих столбцах

Решение