Паскаль АВС.net
задача!!!!
Маленький внучек решил помочь бабушке пидстригты цветы на ее драгоценному цветнике, срезав только бутоны и цветы на них. К счастью, сообразительный мальчик срезал только те цветы, которые были высотой от h1 до h2 см от земли. Скольким цветочкам повезло быть подстриженными, если высота их в сс составляет a1, a2... an.
задача!!!!
Маленький внучек решил помочь бабушке пидстригты цветы на ее драгоценному цветнике, срезав только бутоны и цветы на них. К счастью, сообразительный мальчик срезал только те цветы, которые были высотой от h1 до h2 см от земли. Скольким цветочкам повезло быть подстриженными, если высота их в сс составляет a1, a2... an.
More Questions From This User See All
Answers & Comments
begin
var h1 := ReadInteger('h1 =');
var h2 := ReadInteger('h2 =');
var a := ReadArrInteger('Введите элементы массива a:', ReadInteger('n ='));
write('Цветов подстрижено: ', a.Where(x -> (h1 <= x) and (x <= h2)).Count)
end.