Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Образовательный студенческий форум _ Информатика / Программирование _ помогите пожалуйста!!!!

Автор: Белька 16.11.2011, 21:26

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.
вот! подставляю значения, сумма получается равна нулю((( что не так????

Автор: граф Монте-Кристо 16.11.2011, 21:50

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

Автор: Белька 16.11.2011, 22:03

ааа...все,поняла))) спасибо большое)))) bigwink.gif bigwink.gif bigwink.gif

Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)