Массив. В массиве хранятся севдения о количстве осадков(мм), выпадающих ежедневно в сентябре.Состовьте программу, которая подсчитывает количество дней (h[i]>0) помогите решить.
Ответы
Ответ дал:
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.
Похожие вопросы
1 год назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад