Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ сложение по строке

Автор: Шурик 27.12.2006 14:56

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

 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* 27.12.2006 16:11

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


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.


Автор: klem4 27.12.2006 19:05

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

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.