11. Информация о количестве осадков, выпавших в течение месяца, и температура воздуха задана в виде массивов. Определите, какое количество осадковвыпало в виде дождя, а какое в виде снега. Считать, что идет дождь, если температура больше нуля.ПАСКАЛЬ)
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:=random(20); write (o,' ,'); if i=15 then writeln; end; writeln; writeln ('Temperatura vozduxa: '); for i:=1 to 30 do begin t:=random(26)-15; if (t>0) and (o<>0) then d:=d+o else if (t<0) and (o<>0) then s:=s+o; write (t,','); 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.
