Цитата:
Сообщение от ALise
Помогите пожалуйста.
Задание:
Вычислите отношение суммы всех положительных чисел к сумме всех отрицательных в последовательности вводимых чисел.
Остановить обработку при вводе заказанного количества чисел
Тип обраб. данных - Веществ.
|
Пожалуйста. Только на будущее - у нас не принято цепляться к чужим темам. Создавайте свои - это совсем не трудно.
Код:
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.