Feazvukl
6 год назад
Паскаль АВС.net.Задание ! программирование.Мама развела целую оранжерею кактусов, некоторые из которых гольчасти, а остальные голые. Маленькая дочь Яринка решила, что иглы на кактусах это слишком дерзко, поэтому побрила их бритвой. Хорошо, что у мамы остался блакнот , в котором все кактусы были обозначены количеством иголок a1 ,а2...,, an (голые кактусы были обозначены 0). Как узнать сколько КАКтусов коснулась рука юной девочки .
ОТВЕТЫ
Pimen
Oct 24, 2020
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.
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.
395
Смежные вопросы:
