var
a: array[1..1000] of real;
i, k, n, z: integer;
begin
writeln('введите число n: ');
readln(n);
writeln('введите число z: ');
readln(z);
writeln('введите ',n,' действительных чисел (каждое с новой строки): ');
for i : = 1 to n do
begin
readln(a[i]);
if a[i] > z then
begin
a[i] : = z;
k : = k + 1;
end;
end;
writeln('количество замен: ', k);
end.
2211₁₀ = 1*2⁰ + 1*2¹ + 0*2² + 0*2³ + 0*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ + 0*2⁸ + 0*2⁹ + 0*2¹⁰ + 1*2¹¹ = 100010100011₂
2211₁₀ = 3*8⁰ + 4*8¹ + 2*8² + 4*8³ = 4243₈
2211₁₀ = 3*16⁰ + 10*16¹ + 8*16² = 8A3₁₆