Паскаль АВС.net.задача ! программирование.Мама развела целую оранжерею кактусов, некоторые из которых гольчасти, а остальные голые. Маленькая дочь Яринка решила, что иглы на кактусах это слишком дерзко, поэтому побрила их бритв...

Паскаль АВС.net. задача ! программирование. Мама развела целую оранжерею кактусов, некоторые из которых гольчасти, а остальные голые. Маленькая дочь Яринка решила, что иглы на кактусах это слишком дерзко, поэтому побрила их бритвой. Хорошо, что у мамы остался блакнот , в котором все кактусы были обозначены количеством иголок a1 ,а2...,, an (голые кактусы были обозначены 0). Сколько КАКтусов коснулась рука юной девочки .
Гость
Ответ(ы) на вопрос:
Гость
var a,n,i,s:integer; begin write('Сколько кактусов? '); readln(n); write('Введите количество иголок каждого кактуса: '); for i:=1 to n do   begin   read(a);   if a>0 then s:=s+1;   end; writeln('Ответ: ',s);   end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы