Последовательность чисел. Паскаль

[ALise]

Последовательность чисел. Паскаль

Помогите пожалуйста.

Задание:
Вычислите отношение суммы всех положительных чисел к сумме всех отрицательных в последовательности вводимых чисел.
Остановить обработку при вводе заказанного количества чисел
Тип обраб. данных - Веществ.

 

[Vladimir_S]

Помогите пожалуйста.

Задание:
Вычислите отношение суммы всех положительных чисел к сумме всех отрицательных в последовательности вводимых чисел.
Остановить обработку при вводе заказанного количества чисел
Тип обраб. данных - Веществ.

Пожалуйста. Только на будущее - у нас не принято цепляться к чужим темам. Создавайте свои - это совсем не трудно.

VAR
 a,S_pos,S_neg:Real;
 N,i:Byte;
BEGIN
 Write('N= ');
 Readln(N);
 Writeln;
 S_pos:=0;
 S_neg:=0;
 i:=0;
 Repeat
  Inc(i);
  Write('Next a= ');
  Readln(a);
  If a>0 then S_pos:=S_pos+a;
  If a<0 then S_neg:=S_neg+a;
 Until i=N;
 If S_neg<0 then
  Writeln('S_pos/S_neg= ',S_pos/S_neg:0:6)
 else
  Writeln('Error: S_neg=0');
 Readln;
END.