Двумерный массив.Найти сумму элементов в каждом столбце и занести ее в новый одномерный массив.Где ошибка?

@Астема · Регистрация: 21.07.2013

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

Delphi

program Project14;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
type mas1=array [1..30] of integer;
     mas2=array [1..20,1..30] of integer;
Var A:mas2; i,j,m,n,sum:Integer;
    B:mas1;
begin
  { TODO -oUser -cConsole Main : Insert code here }
writeln('Введите число строк массива n= ');
readln(n);
writeln('Введите число столбцов массива m= ');
readln(m);
writeln('Введите исходный массив A:');
for i := 1 to n do
  for j := 1 to m do
    readln(A[i,j]);
    for j := 1 to m do begin
      sum:=0;
        for i := 1 to n do
          if A[i,j]>0 then
            sum:=sum+A[i,j];
            B[i]:=sum;
    end;
    writeln('Результирующий массив B:');
    for j := 1 to m do
      writeln(B[j]:5);
      readln;
end.

@FIL · 28.04.2015, 13:50

Откуда взялась проверка: ?

Delphi

1	if A[i,j]>0 then

@Астема · 28.04.2015, 14:04 **[ТС]**

хм..в принципе оно здесь не нужно

@andrewveselyi · 28.04.2015, 14:15

sum:=0;
попробуй на строку выше переставь

@Астема · 28.04.2015, 14:22 **[ТС]**

что-то одни нули выдает

@FIL · 28.04.2015, 14:29

Строка 26 должна быть:

Delphi

1	B[j]:=sum;

@Астема · 28.04.2015, 14:35 **[ТС]**

о получилось,спасибо.а вот как сделать, чтобы массив можно было вводить в виде таблицы, а то мне приходится вводить все в один столбик?

@Астема 1 / 1 / 1 Регистрация: 21.07.2013 Сообщений: 109
	28.04.2015, 14:04 [ТС]	3
	хм..в принципе оно здесь не нужно 0

@andrewveselyi 0 / 0 / 0 Регистрация: 28.04.2015 Сообщений: 2
	28.04.2015, 14:15	4
	sum:=0; попробуй на строку выше переставь 0

@Астема 1 / 1 / 1 Регистрация: 21.07.2013 Сообщений: 109
	28.04.2015, 14:22 [ТС]	5
	что-то одни нули выдает 0

@Астема 1 / 1 / 1 Регистрация: 21.07.2013 Сообщений: 109
	28.04.2015, 14:35 [ТС]	7
	о получилось,спасибо.а вот как сделать, чтобы массив можно было вводить в виде таблицы, а то мне приходится вводить все в один столбик? 0