Дано n вещественных чисел а1, а2,…,аn. Определите число соседств двух чисел разного знака (Паскаль)

[bambam]

вот так выглядит текст задачи

"С клавиатуры вводится n вещественных чисел а1, а2,…,аn. Определите число соседств двух чисел разного знака."

вот так выглядит мое решение

program lllll;
uses wincrt;
var k,m,s :real;
var n, i :integer;
begin
writeln ('введите количество чисел n=');
readln (n);
writeln ('введите первое число');
readln (k);
writeln ('введите следующее число');
readln (m);
s:=0;
for i:= 1 to n do if(k<0) and (m>0) or (k>0) and (m<0) then s:=s+1;
k:=m;
writeln ('введите следующее число');
readln (k);
for i:= 1 to n do if(k<0) and (m>0) or (k>0) and (m<0) then s:=s+1;
writeln ('количество повторений' ,s:5:0);
end.

работает оно неправильно
посоветуйте пожалуйста как исправить???



_________
1) с чего это Вы решили, что это "интересная задача на цикл" ?!
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.

[Zer0]

эх... проверьте логику
Вот например зачем:

for i:= 1 to n do if(k<0) and (m>0) or (k>0) and (m<0) then s:=s+1;

Вам не кажется что в цикле надо не только сравнивать, но и вводить следующее число? А так получается Вы n раз сравниваете одну и ту же пару чисел, соответственно и ответ неверный