Определить, что больше: сумма положительных элементов или модуль суммы отрицательных элементов

@Bon9s · Регистрация: 15.06.2017

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

Помогите!!

Дан массив 7*2 из целых чисел заполненный случайными числами из интервала [-20;20].
Определить что больше сумма положительных элементов или модуль суммы отрицательных элементов.

@ZX Spectrum-128 · 16.06.2017, 08:46

Pascal

uses
  Math;
const
  n = 7;
  m = 2;
 
var
  a: array [1..n, 1..m] of integer;
  i, j, so, sp: integer;
 
begin
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := randomrange(-20, 20);
      //a[i, j] := random(-20, 20);
      write(a[i, j]:4);
      if a[i, j] < 0 then
        so := so + a[i, j]
      else
      if a[i, j] > 0 then
        sp := sp + a[i, j];
    end;
    writeln;
  end;
  writeln('Сумма положительных элементов: ', sp);
  writeln('Модуль суммы отрицательных элементов: ', abs(so));
  if sp > abs(so) then
    writeln('Сумма положительных элементов больше')
  else  
  if sp < abs(so) then
    writeln('Модуль суммы отрицательных элементов больше')  
  else
    writeln('Равны');
end.

@bormant · 17.06.2017, 00:55

ZX Spectrum-128,
можно обойтись без Abs() здесь и ниже, а также и без двойного условия (0 не изменяет сумму):

Pascal

    if a[i,j]<0 then
      so:=so-a[i,j]
    else
      sp:=sp+a[i,j];

Определить, что больше: сумма положительных элементов или модуль суммы отрицательных элементов

Решение

Решение

@Bon9s 0 / 0 / 0 Регистрация: 15.06.2017 Сообщений: 5
		1
	Определить, что больше: сумма положительных элементов или модуль суммы отрицательных элементов 16.06.2017, 08:35. Показов 3103. Ответов 2 Метки нет (Все метки) Помогите!! Дан массив 7*2 из целых чисел заполненный случайными числами из интервала [-20;20]. Определить что больше сумма положительных элементов или модуль суммы отрицательных элементов. 0

	17.06.2017, 00:55