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

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

Задать свой вопрос
Тоха Сусаков
Да, практически вся серия задач, выложенная Ксю, из простых, но какая-то нестыковочка есть - общее количество не задано, приходится использовать динамический массив, а это теснее более высочайший уровень. Потому подумалось, а может эти задачи нужно вообщем решать без внедрения массива? Ксю, ответь, массивы использовать либо нет?
Ольга Котляр
Ну это как-то неэлегантно.
1 ответ
Var a,n,i,s:integer;
begin
write('Сколько кактусов? ');
readln(n);
write('Введите количество иголок каждого кактуса: ');
for i:=1 to n do
  begin
  read(a);
  if agt;0 then s:=s+1;
  end;
writeln('Ответ: ',s);  
end.
Виталик Полудольный
Надо было и все другие задачи также решать, без массива.
Тараранкина Карина
с массивом м необходимо
Kirill Kuklo
и нужно*
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт