Const n=10; var a,b,c:array[1..n] of real; i:integer; begin Writeln('Введите элементы массива'); for i:=1 to n do Read(a[i]); Writeln(' A B C'); for i:=1 to n do begin b[i]:=a[n-i+1]; c[i]:=(a[i]+b[i])/2; Writeln(a[i]:7:3,b[i]:7:3,c[i]:7:3) end end.
Если вы говорит что на экран выводится число 10614 посредством метода "write(2*(n mod 5+3))", то вы ошибаетесь. Допустимые значения выводимых этим выражением чисел соответствуют следующей линейке: 6, 8, 10, 12, 14. Если же после данного цикла выполняется вывод переменной n, то указанное вами выводимое значение так же ошибочно, так как цикл выполняется до того момента пока переменная не станет равна нулю. Я скорее всего ошибаюсь, так как не вижу конкретизированного условия(в каком участке кода выводится значение 10614).
Одномерный A[5] = 56, A[2] = 78