var
t,o:array [1..30] of integer;
d,s,i:integer;
begin
randomize;
writeln ('Kol-vo osadkov: ');
for i:=1 to 30 do begin
o[i]:=random(20);
write (o[i],' ,');
if i=15 then writeln;
end;
writeln;
writeln ('Temperatura vozduxa: ');
for i:=1 to 30 do begin
t[i]:=random(26)-15;
if (t[i]>0) and (o[i]<>0) then d:=d+o[i] else
if (t[i]<0) and (o[i]<>0) then s:=s+o[i];
write (t[i],',');
if i=15 then writeln;
end;
writeln;
writeln ('Kol-vo osadkov v vide snega: ',s);
writeln ('Kol-vo osadkov v vide dozhdya: ',d);
readln;
end.