Задача на масив
Маленький онучок вирішив "допомогти" бабусі підстригти квіти у її квітнику. На щастя, кмітливий хлопчик зрізав лише ті квіти, які були заввишки від 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]<=h2) then Col:=Col+1;    end; WriteLn; WriteLn('Col = ', Col); ReadLn;end.