function T5_A1markus(fuetterungen)

%% Tage ohne Niederschlag
n=find(fuetterungen(:,1)==0)
%% häufiger als 50 mal gefüttert
f=find(fuetterungen(:,2)>50)
%% Tage ohne Niederschlag an denen die Meise häufiger als 50 mal gefüttert hat

x=size(n,1);
z=zeros(x,1);
for pos=1:x
    y=n(pos,1);
    g=(y==f);
    h=sum(g);
    if h>0
        z(pos,1)=n(pos,1);
    end

end
Logvec=(z>0)
 
Ergebnis=z(Logvec)


%% Wie häufig hat die Meise an zwei aufeinanderfolgenden Tagen zusammen über 100 mal gefüttert?

a=size(fuetterungen,1);
b=zeros(a,1);

for pos=1:a-1
    r=fuetterungen(pos,2);
    s=fuetterungen(pos+1,2);
    j=r+s;
    if j>100
        b(pos,1)=1;
    end
end
Ergebnis2=sum(b)
