{* Задача 174 *}

Unit ZADACH174;
Interface
Implementation
Begin
 writeln('Вывести на экран номера элементов заданного массива Y(N), удовлетворяющих условию 0');
End.

Program zadach174;

Uses zadach174.pas; {* Эту строку можно удалить *}
Uses CRT; {* Подключение модулей *}
Const {* Постоянные значения *}
  N = 5;
Type {* Типы переменных *}
  ArrayN = Array [1..N] Of Real;
Var {* Объявление переменных *}
  X : ArrayN;
  i : Integer;
Begin
  Clrscr; {* Стираем всё с экрана *}
  Randomize;
  For i := 1 To N Do {* Цикл для i => [1 .. N] *}
  Begin
    X[i] := - 10 + Random(200) * 0.1;
    Write(X[i] : 2 : 1, ' ');
  End;
  Writeln('');
  For i := 1 To N Do {* Цикл для i => [1 .. N] *}
    If (X[i] > 0) And (X[i] < 1) Then
      Write(i, ' ');
  Readln; {* Ждем нажатия Enter *}
End.