program TemperatureSignChangesByProduct;
 
uses SysUtils;
 
var
  n, i, signChanges: Integer;
  temperatures: array of Integer;
 
begin
  // Вводим количество измерений температуры
  Write('Введите количество измерений температуры: ');
  ReadLn(n);
 
  // Динамически выделяем память для массива
  SetLength(temperatures, n);
 
  // Вводим значения температуры
  Write('Введите значения температуры: ');
  for i := 0 to n - 1 do
    Read(temperatures[i]);
 
  // Инициализация переменных
  signChanges := 0;
 
  // Проходим по массиву
  for i := 1 to n - 1 do
  begin
    // Проверяем смену знака через произведение
    if (temperatures[i] * temperatures[i - 1] < 0) then
      Inc(signChanges);
  end;
 
  // Выводим результат
  WriteLn('Количество чередований знака: ', signChanges);
end.

cHJvZ3JhbSBUZW1wZXJhdHVyZVNpZ25DaGFuZ2VzQnlQcm9kdWN0OwoKdXNlcyBTeXNVdGlsczsKCnZhcgogIG4sIGksIHNpZ25DaGFuZ2VzOiBJbnRlZ2VyOwogIHRlbXBlcmF0dXJlczogYXJyYXkgb2YgSW50ZWdlcjsKCmJlZ2luCiAgLy8g0JLQstC+0LTQuNC8INC60L7Qu9C40YfQtdGB0YLQstC+INC40LfQvNC10YDQtdC90LjQuSDRgtC10LzQv9C10YDQsNGC0YPRgNGLCiAgV3JpdGUoJ9CS0LLQtdC00LjRgtC1INC60L7Qu9C40YfQtdGB0YLQstC+INC40LfQvNC10YDQtdC90LjQuSDRgtC10LzQv9C10YDQsNGC0YPRgNGLOiAnKTsKICBSZWFkTG4obik7CgogIC8vINCU0LjQvdCw0LzQuNGH0LXRgdC60Lgg0LLRi9C00LXQu9GP0LXQvCDQv9Cw0LzRj9GC0Ywg0LTQu9GPINC80LDRgdGB0LjQstCwCiAgU2V0TGVuZ3RoKHRlbXBlcmF0dXJlcywgbik7CgogIC8vINCS0LLQvtC00LjQvCDQt9C90LDRh9C10L3QuNGPINGC0LXQvNC/0LXRgNCw0YLRg9GA0YsKICBXcml0ZSgn0JLQstC10LTQuNGC0LUg0LfQvdCw0YfQtdC90LjRjyDRgtC10LzQv9C10YDQsNGC0YPRgNGLOiAnKTsKICBmb3IgaSA6PSAwIHRvIG4gLSAxIGRvCiAgICBSZWFkKHRlbXBlcmF0dXJlc1tpXSk7CgogIC8vINCY0L3QuNGG0LjQsNC70LjQt9Cw0YbQuNGPINC/0LXRgNC10LzQtdC90L3Ri9GFCiAgc2lnbkNoYW5nZXMgOj0gMDsKCiAgLy8g0J/RgNC+0YXQvtC00LjQvCDQv9C+INC80LDRgdGB0LjQstGDCiAgZm9yIGkgOj0gMSB0byBuIC0gMSBkbwogIGJlZ2luCiAgICAvLyDQn9GA0L7QstC10YDRj9C10Lwg0YHQvNC10L3RgyDQt9C90LDQutCwINGH0LXRgNC10Lcg0L/RgNC+0LjQt9Cy0LXQtNC10L3QuNC1CiAgICBpZiAodGVtcGVyYXR1cmVzW2ldICogdGVtcGVyYXR1cmVzW2kgLSAxXSA8IDApIHRoZW4KICAgICAgSW5jKHNpZ25DaGFuZ2VzKTsKICBlbmQ7CgogIC8vINCS0YvQstC+0LTQuNC8INGA0LXQt9GD0LvRjNGC0LDRggogIFdyaXRlTG4oJ9Ca0L7Qu9C40YfQtdGB0YLQstC+INGH0LXRgNC10LTQvtCy0LDQvdC40Lkg0LfQvdCw0LrQsDogJywgc2lnbkNoYW5nZXMpOwplbmQu