Предмет: Информатика,
автор: Настька15
Массив. В массиве хранятся севдения о количстве осадков(мм), выпадающих ежедневно в сентябре.Состовьте программу, которая подсчитывает количество дней (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.
Интересные вопросы
Предмет: Русский язык,
автор: rich0312269
Предмет: Химия,
автор: znanenzinie
Предмет: История,
автор: ivanka1505
Предмет: Математика,
автор: ktusha