Технический форум - Последовательность чисел. Паскаль

Цитата:

Сообщение от ALise (Сообщение 639425)

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

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

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

Код:

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.