const
     Max=10000;
var
   Arr: array[1..Max] of real;
   Z: real;
   i,N: integer;
begin
     Writeln('N='); Readln(N);
     Writeln('Z='); Readln(Z);
     for i:=1 to N do
         Readln(Arr[i]);
     for i:=1 to N do begin
         if Arr[i]>Z
            then
                Arr[i]:=Z;
         end;
     for i:=1 to N do begin
         Write(Arr[i]:0:2);
         Write(' ');
     end;
Readln;
end.

program q;
uses crt;
var x,y,n,k,h,s:real;
c:integer;
begin
clrscr;
writeln('Vvedite n');
readln(n);
writeln('Vvedite k');
readln(k);
writeln('Vvedite h');
readln(h);
if (n<k)and(h>0)and(k>=0)and(n>=0) then begin
x:=n;
while x<=k do begin
y:=(1-exp(x*x))*sin(2*x);
if y>=0 then begin
s:=s+y;
inc(c);
end;
if ((x+h)>=k)and(x<>k) then x:=k
else x:=x+h;
end;
s:=s/c;
writeln('Rezultat:');
writeln(s:5:3);
end
else writeln('Nevernie znacheniya');
readkey;
end.