Code
program pr1;
var
a: array [1..256] of real;
z:real;
n,i,zameni:integer;
begin
writeln('Vvedite Z');
readln(Z);
writeln('Vvedite kolichestvo elementov massiva');
readln(n);
writeln('Vvedite elementi massiva');
for i:=1 to n do
begin
writeln('Vvedite element ',i);
readln(a[i]);
end;
zameni:=0;
for i:=1 to n do
begin
if a[i]>Z then
begin
a[i]:=Z;
zameni:=zameni+1;
end;
end;
writeln('Elementi novogo massiva:');
for i:=1 to n do
writeln(a[i],' ');
writeln('Kolichestvo zamen = ',zameni);
readln;
end.