Есть сложная (для меня) задача на массивы!!

[St1mkA]

Дан одномерный массив. Найдите количество смен знака между соседними элементами массива.

[ОДИНОЧЕСТВО В СЕТИ]

если a[i]*a[i+1]<0 есть смена знака
иначе нету

[dexterua]

типа такого

int kol=0;
for (int i=1;i<length_mass;i++)
if(mass[i-1]*mass[i]<0)kol++;

Если елементы большие можно заменить на
if(mass[i-1]<0&&mas[i]>0||mass[i-1]<0&&mas[i]<0)

[Lemo]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  const
  n=10;
var
a:array [1..n] of integer;
i,c,znak:integer;
begin
randomize;
for i := 1 to n do
  begin
    a[i]:=Random(15)-random(10);
    write(a[i],' ');
  end;


  c:=0;
for I := 1 to n do
  begin
  if a[i]>0 then
   begin
      if a[i]*a[i+1]<0 then
       inc(c);
  end;
  end;

   writeln;
  writeln(c);
  readln;
end.

ОпоздаЛ = (

[ОДИНОЧЕСТВО В СЕТИ]

2Lemo

 if a[i]>0 then

а вот это зачем?

[St1mkA]

А как это в делфи выглядит, я чет представить не могу((

[Lemo]

2ОДИНОЧЕСТВО В СЕТИ
При

for I :=1 to n do
  begin

      if a[i]*a[i+1]<0 then
       inc(c);
  end;

С числами 13 4 6 11 5 12 -8 11 11 -1
Ответ 3 выдвет =(((((((

[St1mkA]

У нас как то подругому пишется, так не принимают

[Lemo]

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

У нас как то подругому пишется, так не принимают

Кидай хоть наработки, посмотрем как у вас пишут!

[dexterua]

Ну так три и должно же быть
13 4 6 11 5 12 -8 11 11 -1

1: с 12 на -8
2: с -8 на 11
3: с 11 на -1

или я не правильно условие понял или так и должно быть