Двумерный массив! Паскаль

  • Автор темы Snowwy15
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S

Snowwy15

#1
Не поможете, ребят ? ) Условия такие..
A(N,M) Вычислить и запомнить суммы и числа элементов каждой строки матрицы.Результат отпечатать в виде двух столбцов.N<=20;M<=15;
Код:
PROGRAM qwerty;
USES Crt;
CONST
n=15; m=20;
VAR 
a:array[1..n,1..m] of integer;
rows:array[1..m]of integer;
cols:array[1..n]of integer;
i,j:integer;
BEGIN
clrscr;
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
clrscr;
end;
for i:=1 to n do
for j:=1 to m do
begin
rows[i]:=rows[i]+a[i,j];
cols[j]:=cols[j]+a[i,j];
end;
{rows - суммы по строчкам; cols - по столбцам}
repeat read until keypressed;
END.
остановился на этом, даальше просто нет мыслей никаких..
Буду премного благодарен )
 

nayke

Well-known member
04.08.2010
310
0
#2
Не поможете, ребят ? ) Условия такие..
A(N,M) Вычислить и запомнить суммы и числа элементов каждой строки матрицы.Результат отпечатать в виде двух столбцов.N<=20;M<=15;
Насколько я понимаю что вы хотите - суммы вы получаете в rows а число элементов в строке M. Или может в задании было что-то типа числа положительных или четных элементов..
 
Статус
Закрыто для дальнейших ответов.