BossyBitch

Решаю кр, осталась последняя задача, написала программу и не идет в АВС.Вот условие и моя программа, помогите пожалуйста)))

Введите последовательность из любых чисел R.
Определите сумму положительных и сумму отрицательных чисел.

Математическая модель задачи:
Входные данные:
N – кол-во чисел R
I – параметр цикла, величина увеличивающая шаг на 1 (от 1 до n)
X – любые числа R
Выходные данные:
P – сложение положительных чисел
F –сложение отрицательных чисел

Предварительно p:=1
В цикле вводим числа R и сравним их и нулем, если (x>0), то p=p+x
Предварительно f:=0
В цикле вводим числа R и сравним их и нулем, если (x<0), то f=f+x

Программа на языке Паскаль:
Program p3;
uses crt;
var n, i: integer;
x, p, f : real;
begin
clrscr;
writeln(‘zadaite kol-vo chisel’);
readln (n);
p:=1;
for i=1 to n do
f:=0;
for i=1 to n do
begin
write (‘x=’);
readln (x);
if (x>0) then p:=p+x
if (x<0) then f:=f+x
end;
writeln (‘p=’ , p:5:2);
writeln (‘f=’ , f:5:2);
readln;
end.

@Pol Shon

мда, девушка....умирать вам с таким синтаксисом действительно нужно....
принцип правильный, но кто же такие кавычки пишет??????
и почему р=1??? если же сумма то пусть и будет равен 0.
зачем дважды зациклили одно и тоже?
и еще раз : выучите синтаксис....

Добавлено через 10 секунд

0

BossyBitch

спасибо большущее)))
я в этом вообще не шарю так что делала вообще первый раз(это так для отмазы))))
так что про какие там синтаксисы и т.д. вообще ничего не поняла, но все равно спасибо)))))=*****

@Pol Shon

ты кавычки не такие ставишь. нужно не наклонные. а прямые. они на букве Э находятся)))))

0