Задача на масивМаленький онучок вирішив "допомогти" бабусі підстригти квіти у її квітнику. На щастя, кмітливий хлопчик зрізав лише ті квіти, які були заввишки від h1 до h2 см від землі. Скільки квіточок було підстрижено, якщо їх висота у сантиметрах становить а1, а2, ... , а n . (Ввести висоту квіточок у вигляді масиву чисел, а також константи h1 та h2).

Uses Crt;
const m=1000;
type Mas=array [1..m] of integer;
var n, i, h1, h2, Col: integer;
     A: Mas;
begin
 ClrScr;
 Randomize;
 Write (n = );  ReadLn (n);
 Write (h1 = );  ReadLn (h1);
 Write (h2 = );  ReadLn (h2);
 Col:=0;
 Writeln (Massiv:);
 for i:=1 to n do
    begin
      A[i]:=1+random (100);
      Write (A[i]:4);
      if (A[i]>=h1) and (A[i]    end;
 WriteLn;
 WriteLn(Col = , Col);
 ReadLn;
end.