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

Question

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

Comments

Да, почти вся серия задач, выложенная Ксю, из элементарных, но какая-то нестыковочка есть - общее количество не задано, приходится использовать динамический массив, а это уже более высокий уровень. Поэтому подумалось, а может эти задачи нужно вообще решать без применения массива? Ксю, ответь, массивы использовать или нет?

---

Ну это как-то неэлегантно.

Answer 1

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.

Comments

Надо было и все другие задачи также решать, без массива.

---

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

---

и нужно*