вычислить суммы положительных элементов каждой матрицы X(10x10)

[Дмитрий199]

вычислить суммы положительных элементов каждой матрицы X(10x10), определить наибольшее значение этих сумм. Во внутреннем цикле найти сумму положительных элементов, а во внешнем наибольшую из этих сумм

[abit]

в чём вопрос то?
судя по заданию вы даже поленились нам его целиком дать... а расчитываете на халявный ответ? ну ладно отвечаю...
на псевдокоде:

внешний цикл с перой матрицы до последней
начать
  сумма положительных в этой матрице = 0
  внутренний цикл с первого элемента матрицы до последнего если элемент>0 прибавить его к сумме положительных, конец внутреннего цикла
  проверить максимальная сумма среди матриц больше суммы положительных в это матрице? да - записать новый вариант максимальной суммы
конец внешнего цикла

ответил бы нормально, но тут понимаете уже пару раз давали мне модеры предупреждение что здесь не решебник, да и задание у вас не полное

[Дмитрий199]

каждой строки матрицы. слово я прупустил

[Дмитрий199]

Program MatricaX
var
a: array [1…10, 1…10] of real;
b: array [1…10] of real;
c: real, i, j: integer;
Begin for i:=1 to 10 do
for j:=1 to 10 do
Readln j(a[i,j];
For i=1 to 10 do Begin
B[i]:=0
For j:=1 to 10 do 10
B[i]:=b[i]+a[I,j];
End; End;
c:=b[1];
For i:=1 to 10
If c<b[i] Then
c:=b[i];
write (‘c=’, c];
write (‘конец’);
end.
Что неправильно в этой программе?

[Arigato]

Program MatricaX

После названия проги нужна точка с запятой. Дальше не смотрел.

[Дмитрий199]

Program MatricaX;
var
a: array [1..10, 1..10] of real;
b: array [1..10] of real;
c: real; i, j: integer;
Begin
for i:=1 to 10 do
for j:=1 to 10 do
Readln (a[i,j]);
For i:=1 to 10 do
Begin
B[i]:=0;
For j:=1 to 10 do
B[i]:=b[i]+a[I,j];
End;
c:=b[1];
For i:=1 to 10 do
If c<b[i] Then
c:=b[i];
write ('c=', c);
write ('конец');
end.
Такая программа?

[Vanta11a]

А что эта программа делает, по твоему мнению? Совпадает ли с тем, что нужно сделать?