в непустой последовательности целых чисел определить количество смен знака числа (Delphi)

[shalgan]

добрый день,требуется совет.Безымянный.jpg

вот задание,не могу понять ,как на языке паскаль это все изобразить. Мое предположение,сначала числа сравниваем с 0,если больше 0 то в колонку положительный,если меньше в отрицательную,только я не знаю как сделать,чтобы программа посчитала сколько раз меняется знак

[BDA]

Алгоритм:
Счетчик изменений знака = 0
Задаем первое число = 0
Считываем второе число (по сути, первое из последовательности)
Заходим в цикл while, который проверяет второе число на неравенство нулю
Если это так, то внутри цикла смотрим на знак произведения первого и второго чисел
Если оно меньше нуля, то увеличиваем счетчик
Теперь присваиваем значение второго числа первому числу
Считываем второе число
Далее цикл начинается сначала

[shalgan]

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

Алгоритм:
Счетчик изменений знака = 0
Задаем первое число = 0
Считываем второе число (по сути, первое из последовательности)
Заходим в цикл while, который проверяет второе число на неравенство нулю
Если это так, то внутри цикла смотрим на знак произведения первого и второго чисел
Если оно меньше нуля, то увеличиваем счетчик
Теперь присваиваем значение второго числа первому числу
Считываем второе число
Далее цикл начинается сначала

Спасибо большое,уже начал что-то изобретать, только вот "Если это так, то внутри цикла смотрим на знак произведения первого и второго чисел"

записать это так? while a[1]<>0 do begin K:=a[1]*a[2]; if k<0 do begin s:=s+1??

[BDA]

Да, так, можно записать короче:

while b <> 0 do
begin
  if a * b < 0 then
    inc(s);
  ...
end;

Где a и b - первое и второе числа.

[shalgan]

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

Алгоритм:
Счетчик изменений знака = 0
Задаем первое число = 0
Считываем второе число (по сути, первое из последовательности)
Заходим в цикл while, который проверяет второе число на неравенство нулю
Если это так, то внутри цикла смотрим на знак произведения первого и второго чисел
Если оно меньше нуля, то увеличиваем счетчик
Теперь присваиваем значение второго числа первому числу
Считываем второе число
Далее цикл начинается сначала

и забыл добавить.a[1],a[2], не знаю правильно или нет взял т.к первый опыт в визуальном программировании и на да сделать через мемо,а не едит

[BDA]

Ну Вы пока решите для консольного, а потом уже прикрутим штуку, чтобы из мемо брались числа.

[shalgan]

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

Ну Вы пока решите для консольного, а потом уже прикрутим штуку, чтобы из мемо брались числа.

program Project1;
type mas=array[1..100] of Integer; var b,s,z,q,w:Integer;i:Integer; a:mas;
begin
Writeln('vvedite kol-vo chisel');
readln(q);
Writeln('vvedite chisla');
for i:=1 to q do begin
readln(a[i]);
end;
z:=0;
s:=0;
while b <> 0 do
begin
  if w*b < 0 then
    inc(s);
 z:=b;
 readln(b);
end;
Readln;
end.

программа просто закрывается после ввода чисел. И я не понимаю как сделать, чтобы программа брала числа с массива, через a[1,2,3] как- долго, и чтобы после сравнивания она переходила ко следующему

[BDA]

program Project1;
var
  a, b, s: Integer;
begin
  Writeln('vvedite chisla');
  a := 0;
  s := 0;
  read(b);
  while b <> 0 do
  begin
    if a * b < 0 then
      inc(s);
   a := b;
   read(b);
  end;
  writeln(s);
  Readln;
end.

[shalgan]

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

program Project1;
var
  a, b, s: Integer;
begin
  Writeln('vvedite chisla');
  a := 0;
  s := 0;
  read(b);
  while b <> 0 do
  begin
    if a * b < 0 then
      inc(s);
   a := b;
   read(b);
  end;
  writeln(s);
  Readln;
end.

не работает :D

[BDA]

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

не работает :D

Сочувствую
http://ideone.com/8KSlmy