Помощь - Поиск - Пользователи - Календарь
Полная версия: сложение по строке
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Шурик
Мне надо вывести на экран сумму элементов по столбцу

 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.

klem4
Что-то многовато лишнего 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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.