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

с массивом м нужно

и нужно*

var a,n,i,s:integer;beginwrite('Сколько кактусов? ');readln(n);write('Введите количество иголок каждого кактуса: ');for i:=1 to n do  begin  read(a);  if a>0 then s:=s+1;  end;writeln('Ответ: ',s);  end.