{* Задача 170 *}

Unit ZADACH170;
Interface
Implementation
Begin
 writeln('Взаданном массиве A(N) определить количество элементов, которые меньше заданного значения.');
End.

Program zadach170;

Uses zadach170.pas; {* Эту строку можно удалить *}
Uses CRT; {* Подключаем внешние файлы *}
Const {* Предопределенные *}
  N = 5;
Type {* Создание новых типов данных *}
  ArrayN = Array [1..N] Of Integer;
Var {* Необходимые переменные *}
  X           : ArrayN;
  i           : Integer;
  CountNumber : Integer;
  Number      : Integer;
Begin
  Clrscr; {* Очистка экрана *}
  Randomize;
  For i := 1 To N Do {* Переменная i увеличивается с 1 до N *}
  Begin
    X[i] := - 1000 + Random(2000);
    Write(X[i], ' ');
  End;
  Writeln('');
  Write('Введите любое целое число: ');
  Readln(Number);
  Writeln('');
  CountNumber := 0;
  For i := 1 To N Do {* Увеличиваем i от 1 до N с шагом 1 *}
    If X[i] < Number Then
      CountNumber := CountNumber + 1;
  Writeln('В массиве количество чисел, меньших числу ', Number, ' равно = ', CountNumber);
  Readln; {* Приостановка программы. Ожидание Enter *}
End.