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

@Julia33 · Регистрация: 01.05.2012

Author24 — интернет-сервис помощи студентам

Дана прямоугольная таблица, которая содержит не более 10 строк и не
более 10 столбцов. Найти сумму отрицательных и сумму положительных
элементов и сравнить их по модулю.

@3a9Ic · 09.05.2012, 19:38

Pascal

Uses CRT;
var a:array[1..99,1..99] of integer;
    n,m,i,j,s,s1:integer;
begin
     ClrScr;
     write('Ââåäèòå N è M=');Read(n,m);
     for i:=1 to n do
     for j:=1 to m do
     begin
          a[i,j]:=Random(15)-8;
          gotoxy(j*5+5,i+1);
          write(a[i,j]);
     end;
     for i:=1 to n do
     for j:=1 to m do
     begin
          if a[i,j]>0 then s:=s+a[i,j];
          if a[i,j]<0 then s1:=s1+a[i,j];
     end;
writeln('');
writeln('Ñóììà ïîëîæèòåëüíûõ = ',s,'  Ñóììà îòðèöàòåëüíûõ = ',s1);
if s>abs(s1) then writeln('Ñóììà ïîëîæèòåëüíûõ áîëüøå')
else writeln('Ñóììà îòðèöàòåëüíûõ áîëüøå');
end.

@Julia33 · 12.05.2012, 18:06 **[ТС]**

Спасибки!

@Julia33 0 / 0 / 0 Регистрация: 01.05.2012 Сообщений: 83
		1
	Найти сумму отрицательных и сумму положительных элементов 09.05.2012, 19:28. Показов 3295. Ответов 2 Метки нет (Все метки) Дана прямоугольная таблица, которая содержит не более 10 строк и не более 10 столбцов. Найти сумму отрицательных и сумму положительных элементов и сравнить их по модулю. 0

@Julia33 0 / 0 / 0 Регистрация: 01.05.2012 Сообщений: 83
	12.05.2012, 18:06 [ТС]	3
	Спасибки! 0

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

Решение