Дан массив действительных чисел А их 10 элементов, заданных случайным
образом в диапазоне от 0 до 44. Заменить все члены, большие заданного x, этим
числом. Число х вводится с клавиатуры.

Const N=10;

Var A: array [1..N] of integer;

i, x: integer;

begin

writeln ('Введите х');

readln (x);  

 for i:=1 to N do

 begin

 A[i]:= random (45);

 end;

 for i:=1 to N do

 begin

  If A[i] > x then A[i]:= x;  

  write (A[i], ' ');

  end;

end.

Объяснение: