{* Задача 72 *}

Unit ZADACH72;
Interface
Implementation
Begin
 writeln('В массиве Y, состоящем из N элементов, определить количество элементов, значения которых заключены в диапазоне от 1, 3 до 8, 7 (отладить при N=10).');
End.

Program task1;

Uses zadach72.pas; {* Эту строку можно удалить *}
Const {* Постоянные значения *}
  N = 10;
  ymin = 1.3;
  ymax = 8.7;
Var {* Объявление переменных *}
  y   : Array [1..10] Of double;
  i   : Integer;
  cnt : Integer;
Begin
  y[1] := - 0.2312;
  y[2] := 0.2312;
  y[3] := 10.2312;
  y[4] := 3.3;
  y[5] := - 40;
  y[6] := 2.312;
  y[7] := 0.245;
  y[8] := - 0.232;
  y[9] := 312312.0;
  y[10] := 0.444;
  cnt := 0;
  For i := 1 To N Do {* Переменная i увеличивается с 1 до N *}
    If ((y[i] = ymin)) Then
      cnt := cnt + 1;
  writeln (cnt);
  readln; {* Ждем подтверждения пользователя *}
End.