var
a: array of integer;
n, i: integer;
begin
randomize;
write('Введите размерность массива: ');
readln(n);
Setlength(a, n);
writeln('Массив: ');
for i := 0 to n - 1 do
begin
a[i] := random(21) - 10;
write(a[i]:5);
end;
writeln;
writeln('Результат деления отрицательных элементов на 2: ');
for i := 0 to n - 1 do
begin
if a[i] < 0 then write(a[i] / 2:5)
else write(a[i]:5)
end;
<span>end.</span>
Сначала перевела все в десятичную , выполнила действия , и перевела в восьмеричную полученный ответ
<h3>PascalABC.NET 3.4.2, сборка 1861 от 09.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var s:=ReadLines('data.txt').First.Select(t->t.ToDigit)
.Aggregate(BigInteger(1),(a,b)->a*b).Println
end.
<h2>Пример</h2>
10057531504895395788703629698793031096713606951075840000000000000
<h3>Файл data.txt дан во вложении</h3>
4610,десяточка маленькая снизу =1011102 двоечка маленькая снизу