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

[Natali_11111]

Помогите, ребят!!! Дан массив Аi, i=1,2,…,15. Найти сумму положительных элементов и сумму отрицательных элементов S1 и S2 . Определить, что больше S1 или S2 .

[RUSt88]

Наташ, давай помогу, 100 руб и я тебе помогу

[netrino]

Сообщение от Natali_11111

Помогите, ребят!!! Дан массив Аi, i=1,2,…,15. Найти сумму положительных элементов и сумму отрицательных элементов S1 и S2 . Определить, что больше S1 или S2 .

Есть предположение, что сумма положительных всегда будет больше суммы отрицательных ))
Не постите свои задания в чужих темах, создавайте свою, плюс выдавайте наработки по теме, если нету, то идите в соответствующий раздел(Фриланс) и там Вам сделают Ваше задание, правда не за бесплатно

[Stilet]

Natali_11111

На каком языке? Где наработки? Что в методе написано? Как вас учат? Кто 11 президент США?

[Google2010]

var
  a:array[1..100] of real;
  i,n:integer;
  s1,s2:integer;

begin
readln(n);
s1:=0;s2:=0;
for I := 1 to n do
  begin
    a[i]:=random(50)-25+random(100)/100;
    if a[i]>0 then s1:=s1+a[i];
    if a[i]<0 then s2:=s2+a[i];
    write(a[i]:8:2);
  end;
  writeln;
  if (s1>s2) then writeln('s1>s2')
  else if s1<s2 then writeln(s2>s1')
  else writeln('s1=s2');
   readln;
end.

[Anatole]

Google2010
Должен заметить, что сумма положительных чисел всегда положительна, а сумма отрицательных - всегда отрицательна. Поэтому всегда справедливо неравенство: s2<=s1. Может быть имеет смысл перед сравнением сумм вставить в вашу программу следующий оператор?

s2 := abs(s2)

[Google2010]

Anatole
в свою очередь хочу заметить что задача решена в соответствии с поставленным условием а при

s2 := abs(s2)

мы получим расхождением с ним (условием)
так что это личное дело ТС ставить модуль или нет!