Question

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

Answer 1

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.