Pian1st

дак ты нахрдишь в проге сумму температур
if temp[i]>=0 then k_r:=k_r+kol[i];
if temp[i]<0 then k_s:=k_s+kol[i];