Формирования массива из столбцов матрицы

@Zarechnev · Регистрация: 25.09.2011

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

Дайте пожалуйста наводку, как можно организовать массив В, состоящий из суммы эл-ов каждого столбца массива А?
т.е. b[1] - это a[1,1] + a[2,1] + a[3,1] + ... + a[n,1]
b[2] - это a[1,2] + a[2,2] + a[3,2] + ... + a[n,2]
...
b[n] - это a[1,m] + a[2,m] + a[3,m] + ... + a[n,m]

может быть вот так:

a[ i,j ]
b[ j ]

Pascal

for j:= 1 to 3 do
   for i:= 1 to 3 do
      begin
         b[j]:=b[j]+a[i,j];
      end;
 
write( b[j] );

??? что-то никак решение в голову не лезет...

@Просто лис · 16.10.2011, 14:57

Pascal

const m=5;n=5;
Var mas2:array[1..m,1..n] of integer; mas1:array[1..m] of integer; i,j:shortint; summ:integer;
begin
Writeln('Zapolnite dvumernii massiv');
for i:=1 to m do
begin
for j:=1 to n do
begin
read(mas2[i,j]);
end;
writeln;
end;
for i:=1 to m do
begin
summ:=0;
for j:=1 to n do
begin
summ:=summ+mas2[j,i];
end;
mas1[i]:=summ;
end;
Writeln('Odnomer massiv');
for i:=1 to n do
Write(mas1[i],' ');
readln;
end.

@Zarechnev · 16.10.2011, 15:06 **[ТС]**

Благодарю. А как насчет этого варианта? Я конечно понимаю, что они почти одинаковы, но какой более рациональный??

кстати k и s - лишние переменные. от предыдущей лабы остались...

Pascal

Program mass;
Uses CRT;
Var
a:array [1..100, 1..100] of Integer;
b:array [1..100] of Integer;
i,j,k : Integer;
n,m,s : Integer;
Begin
ClrScr;
Write(' Введите кол-во строк:');
ReadLn(n);
Write(' Введите ко-во столбцов:');
ReadLn(m);
WriteLn(' Массив создан. Нажмите Enter для его заполнения.');
ReadLn;
WriteLn;
{ВВОД МАССИВА А}
   FOR i:= 1 TO n DO
      FOR j:= 1 TO m DO
         Begin
            Write('A[',i,',',j,']=');
            ReadLn(a[i,j]);
         end;
 
{ВЫВОД МАССИВА А}
WriteLn;
WriteLn(' Полученная матрица:');
   FOR i:= 1 TO n DO
      Begin
      FOR j:= 1 TO m DO
            Write(a[i,j]:m);
            WriteLn;
      end;
 
{ФОРМИРОВАНИЕ МАССИВА В}
   FOR j:= 1 TO m DO
      FOR i:=1 TO n DO
         Begin
            b[j]:=b[j]+a[i,j];
         end;
 
{ВЫВОД МАССИВА В}
WriteLn;
WriteLn(' Вывод нового массива:');
For j:= 1 to m do
Write('B[',j,']=',b[j],' ');
 
 
WriteLn;
WriteLn(' Для выхода из программы нажмите Enter.');
ReadLn;
End.

	16.10.2011, 15:06