Pascal问题：）

var
    n,ans,pre,pre2:longint;
    flag:boolean;
begin
    read(pre2);
    read(pre);
    ans:=0;
    flag:=false;
    repeat
        read(n);
        if n<>0 then begin
            if (pre>=35)and(pre2>=35)and(n>=35)and(not flag) then begin
                inc(ans);
                flag:=true;
            end
            else flag:=false;
        end;
        pre2:=pre;
        pre:=n;
    until n=0;
    writeln(ans);
end.

 话说你是真想问问题么。。。？怎么我又看到你问这个问题？？

还有明显我的代码最简洁易懂又没有其他那些什么输入温度个数有限制等坑爹问题，那岂不是果断采纳么。。。还犹豫什么

以下是伪代码,不符合语法，不完整，仅供示意不能直接编译运行

数组 tem[1..3]
i:=1
do
read tem[i]
if tem[i]=0 break;
if tem[i]>35
    if i=3 then 答案增加1并且tem[1]:=tem[3]并且i:=2
    else i:=i+1;
else i:=1;
until 1=3

var
i,max,n:longint;
a:array[-2..1000]of integer;
x:boolean;
procedure panduan;
begin
if (a[i]>=35)and(a[i-1]>=35)and(a[i-2]>=35) then
if x=false then begin
x:=true; inc(max);
end;
if (a[i]<35)or(a[i-1]<35)or(a[i-2]<35) then
if x=true then x:=false;
end;
begin
readln(n);
fillchar(a,sizeof(a),0);
x:=false;
for i:=1 to n do begin
read(a[i]);
panduan; end;
writeln(max);
end.

其实 那个0 可以不用管的