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