Массив. В массиве хранятся севдения о количстве осадков(мм), выпадающих ежедневно в сентябре.Состовьте программу, которая подсчитывает количество дней (h[i]>0) помогите решить.

1

Ответы и объяснения

2011-12-15T18:43:28+04:00

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.