сложение по строке, помогите исправить Опции

[Шурик]

Мне надо вывести на экран сумму элементов по столбцу

 const m=30;
var
   x,n:integer;
   b,a:array[1..m,1..m] of integer;
   i,j,s,sum:integer;
begin
clrscr;
s:=0;
     write('N=');
     readln(n);

     if n<30 then
for i:=1 to n do
	   for j:=1 to n do
	   begin
	       b[i,j]:=random(10);
	   end;

	 for i:=1 to n do
	 begin
	     for j:=1 to n do
		 write(b[i,j]:4);
	     writeln;
	 end;
	 writeln;
	 for j:=1 to n do
	       for i:=1 to n do
	     S:=S+b[i,j];

	     end;
	 for i:=1 to n do
		 write(s:8);
	     writeln;

     readln;
end.

[TS*]

Ты суммируеш все элементы матрицы, нужно отдельно столбцов:

uses crt;
 const m=30;
var
   x,n:integer;
   b,a:array[1..m,1..m] of integer;
   i,j,sum:integer;
   S:array[1..m] of integer;
begin
clrscr;
for i:=1 to n do s[i]:=0;
     write('N=');
     readln(n);

     if n<30 then
for i:=1 to n do
	   for j:=1 to n do
	   begin
	       b[i,j]:=random(10);
	   end;

	 for i:=1 to n do
	 begin
	     for j:=1 to n do
		 write(b[i,j]:4);
	     writeln;
	 end;
	 writeln;

	 for j:=1 to n do begin
	    for i:=1 to n do
	    S[j]:=S[j]+b[i,j];
         end;


	 for j:=1 to n do
		 write(s[j]:8);
	     writeln;

     readln;
end.

Сообщение отредактировано: TS* - 27.12.2006 16:13

[klem4]

Что-то многовато лишнего begin-ы какието

const
  m = 3;

var
  i, j, s: Integer;
  X: Array [1..m, 1..m] of Integer;

begin
  randomize;

  for i := 1 to m do begin
    writeln;
    for j := 1 to m do begin
      X[i, j] := Random(10);
      write(X[i, j]:2);
    end;
  end;

  writeln;

  for j := 1 to m do begin
    s := 0;
    for i := 1 to m do inc(s, X[i, j]);
    writeln('j = ', j, ' s = ', s);
  end;

end.