sum := 0;
zas := 0;
bed := 0;
for i:=1 to 365 do
begin
sum := sum + arr[i];
if arr[i] < bed then bed := arr[i];
if arr[i] < 30 then zas := zas + 1;
end;

writeln('всего за год - ',sum);
writeln('засушливых дней - ',zas);
writeln('самый засушливый день - ',bed);
------
max := 0;
max2 := 0;
for i:=1 to n do
begin
if arr[i] > max then
begin
max2 := max;
max := arr[i];
end;
end;
writeln(max2,' и ',max);

--
зы паскаль не знаю так шо можно считать что тут правильного ничего нету))