Массив. В массиве хранятся севдения о количстве осадков(мм), выпадающих ежедневно в сентябре.Состовьте программу, которая подсчитывает количество дней (h[i]>0) помогите решить.
uses crt; var a[1..100] of integer; i,n,count:integer; BEGIN count:=0; read(n); for i:=1 to n do read(a[i]); if a[i]>0 then inc(count); write(count); END.