Массив. в массиве хранятся севдения о количстве осадков(мм), ежедневно в сентябре.состовьте программу, которая подсчитывает количество дней (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.
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.