Program matrics;
var
s:real;
i,j,n,m:integer;
sump,sumo:real;
a:array [1..100,1..100] of real;
Begin
write ('m='); readln(m);
write ('n='); readln(n);
for i:=1 to m do
for j:=1 to n do begin
write('a[',i,',',j,']=');read(a[i,j]);
end;
sump:=0;
sumo:=0;
writeln('mat(aij)m*n:');
for i:=1 to m do
for j:=1 to n do
if a[i,j]<0 then
sumo:=sumo+a[i,j];
if a[i,j]>0 then
sump:=sump+a[i,j];
for i:=1 to m do begin
for j:=1 to n do
writeln(a[i,j]:4:4);
writeln;
end;
writeln('сумма положительных элементов матрицы',s);
writeln('сумма отрицательных элементов матрицы',s);
end.
вот! подставляю значения, сумма получается равна нулю((( что не так????

У Вас s нигде не определяется, а Вы её выводите.

ааа...все,поняла))) спасибо большое)))) (IMG:style_emoticons/default/bigwink.gif) (IMG:style_emoticons/default/bigwink.gif) (IMG:style_emoticons/default/bigwink.gif)