Задана последовательность действительных чисел a1, a2, ..., an. определить количество соседства двух положительных чисел (Паскаль)

[elene]

Заданные натуральное число n и последовательность действительных чисел a1, a2, ..., an. В заданной последовательности определить количество соседства двух положительных чисел

Сообщение от elene

Заданные натуральное число n и последовательность действительных чисел a1, a2, ..., an. В заданной последовательности определить количество соседства двух положительных чисел

в програме Паскаль

[Stilet]

var c,n,an,a:integer;
begin
 c:=0; readln(n);
 readln(an);
 while n>0 do begin
  readln(a);
  if (a>0)and(an>0) then inc(c);
  an:=a;
 end;
 write(c); readln;
end.

Идея понятна?

[Poma][a]

В тушке Dec(n)
Кстати, раз пошла такая пьянка, без использования доп. переменной, то побалуюсь и я..

var c,n,an,a:integer;
begin
 c:=0; readln(n);
 readln(an);
 for n := 1 to n do begin // by TinMan
  readln(a);
  if (a>0)and(an>0) then inc(c);
  an:=a;
 end;
 write(c); readln;
end.

[Stilet]

В тушке Dec(n)

Где? Нет в тушке этого органа

[Poma][a]

Где? Нет в тушке этого органа

Ну! А цикл какой будет? Прально! Бесконечный! Этот самый Dec(n) и нужен!

[elene]

спасибо большое!!!

[Stilet]

А-а-а правильно. Не всем воинам Инков коту масленица )
P.S. И опять в репу не дает форум...