Паскаль авс.net. ! программирование. мама развела - вопрос №7194539 от ampolskaanastas 28.05.2021 08:55

Question

Информатика: Паскаль авс.net. ! программирование. мама развела целую оранжерею кактусов, некоторые из которых гольчасти, а остальные голые. маленькая дочь яринка решила, что иглы на кактусах это слишком дерзко, поэтому побрила их бритвой. хорошо, что у мамы остался блакнот , в котором все кактусы были обозначены количеством иголок a1 , an (голые кактусы были обозначены 0). сколько кактусов коснулась рука юной девочки .

ampolskaanastas · Answer

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....