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

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

Задать свой вопрос
Лариса Кронштейн
Программирование !!!
2 ответа
Const
K = 7;
Var
A:array[1..K] of integer;
h1,h2:real;
n:integer:=0;
Begin
Write('h1 = ');ReadLn(h1);
Write('h2 = ');ReadLn(h2);
WriteLn('Введите высоты цветов(',K,' шт.):');
For var i:= 1 to K do
    Read(A[i]);

For var i:= 1 to K do
    if (A[i]gt;=h1)and(A[i]lt;=h2) then n+=1;
WriteLn;
WriteLn('Кол-во "удачливых" цветов: ',n);

End.
//PascalABC.NET 3.2

begin
  var h1 := ReadInteger('h1 =');
  var h2 := ReadInteger('h2 =');
  var a := ReadArrInteger('Введите элементы массива a:', ReadInteger('n ='));
  write('Цветов подстрижено: ', a.Where(x -gt; (h1 lt;= x) and (x lt;= h2)).Count)
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт