.Определить сколько раз в декабре температура меняла знак .

[ANTON66]

написать программу Делфи . Пусть в массиве содержиться результаты измерений температуры воздуха , которые проводились ежедневно в течении декабря месяца.Определить сколько раз в декабре температура меняла знак .

[Stilet]

Попытки? Наработки? Хотя бы ввод массива.

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var i,s:integer;
    p:array[1..31] of integer;
begin
   Randomize;
   For i:=1 to 30 do
      p[i]:=-30+Random(40);
   s:=0;
   For i:=1 to 30 do
      If p[i]*p[i+1]<0 then
         s:=s+1;
   Label1.Caption:=IntToStr(s);
end;

Сойдет?