{* Задача 183 *}

Unit ZADACH183;
Interface
Implementation
Begin
 writeln('В линейном массиве вещественных чисел a(n) заменить все элементы, большие 10, на число c.');
End.

Program zadach183;

Uses zadach183.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Const {* Константы *}
  n = 10;
Var {* Необходимые переменные *}
  a : Array [1..n] Of real;
  c : real;
  i : integer;
Begin
  clrscr; {* Очищаем экран *}
  write('Vvedite lyboe veshestvennoe chislo: ');
  readln(c);
  writeln('Vvedite ', n, ' veshestvennyh chisel:');
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
    read(a[i]);
    If a[i] > 10 Then
      a[i] := c;
  End;
  writeln('Ishodnyy massiv s uchetom usloviya:');
  For i := 1 To 10 Do {* Увеличиваем i от 1 до 10 с шагом 1 *}
    write(a[i] : 4 : 1, ' ');
End.