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.
123(8) = 01010011(2)
AB(16) = 10101011(2)
81(10) = 01010001(2)
01010011
+
10101011
11111111
11111111
-
01010001
10101110
Чтобы перевести в 8чную систему, необходимо разбить на части, состоящие из 3 цифр. Дабы избежать ошибки, припишем 0 в начале, в итоге: 010 / 101 / 110 010 = 2 \ 101 = 5 \ 110 = 6.
ответ: 256(8)