1. В одномерном массиве случайных чисел А(10) положительные элементы уменьшить в

Здесь нам пригодится проверка на символ числа. Если оно будет больше нуля, то мы будем сменять разглядываемое число на это же число, умноженное на 1/2.
Если число будет меньше нуля, то нам необходимо будет отыскать его позицию и поставить заместо числа эту позицию.
В массиве 10 чисел, потому мы запишем таковой цикл:
for i:integer := 1 to 10 do
Тут проводим проверку сравниваем с нулем:
if (A[i] gt; 0) then
A[i] := A[i] * 1/2;
if (A[i] lt; 0) then
A[i] := i;
end.
Все элементы изменены и показать мы их можем через таковой же цикл, в теле которого будет строчка write(A[i]:5);