Найти сумму элементов матрицы по столбцам и строкам.На паскале

[BoozZzilla]

спасибо, я уже понял что неправ и поправился
вооот, а в double результат уже поместится...

[Дмитричок]

Program t2;
Var a,r:real;
    x,n:integer;
Begin
    a:=2.2;
    n:=5;
    r:=1;
    for x:=0 to n-1 do r:=r*(a+x);
    write ('r=',r);
    readln;
end.

Даны действительное число a и натуральное число n.Вычислить: p=a(a+1)...(a+n-1) Так сойдёт?

[BoozZzilla]

Так сойдет

[Дмитричок]

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

var i,j,s:integer; 
a:array [1..10,1..10] of integer; 
begin 
s:=0; 
for i:=1 to 10 
for j:1= to 10 do 
begin 
read(a[ i , j ]); 
s:=s+a[ i , j ]; 
end; 
end.

Как на счёт этой задачи правильно?

[litviak]

Сообщение от Дмитричок

for i:=1 to 10
for j:1= to 10 do

тут должно быть

for i:=1 to 10 do
for j:=1 to 10 do

А в остальном если размер матрицы не нужно задавать, и если

Сообщение от Дмитричок

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

это найти сумму всех элементов то правильно