Предмет: Информатика,
автор: Настька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.
Интересные вопросы
Предмет: Физика,
автор: Аноним
Предмет: Английский язык,
автор: beast1253
Предмет: Математика,
автор: arystanrahmetov67
Предмет: Математика,
автор: ktusha