На масив маленький онучок вирішив "" бабусі підстригти квіти у її квітнику. на щастя, кмітливий хлопчик зрізав лише ті квіти, які були заввишки від h1 до h2 см від землі. скільки квіточок було підстрижено, якщо їх висота у сантиметрах становить а1, а2, , а n . (ввести висоту квіточок у вигляді масиву чисел, а також константи h1 та h2).
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.