Program Task_16_73;
const n=31;
Type S = Record
k : Byte;
t : Integer;
End;
Var A : Array[1..n] Of s;
ss,sd,i:integer;
Begin
ss:=0; sd:= 0;
For i:= 1 To n Do
Begin
Write('Введи температуру воздуха и количество осадков в ', i, '-ый день' ) ;
ReadLn(A[i].t, A[i].k);
If A[i].t>0 Then Sd := Sd+A[i].k
Else Ss:=Ss+A[i].k;
End;
WriteLn('Количество осадков в виде дождя = ', Sd, ' в виде снега = ', Ss);
End.