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

Здесь нам понадобится проверка на знак числа. Если оно будет больше нуля, то мы будем заменять рассматриваемое число на это же число, умноженное на 1/2.

Если число будет меньше нуля, то нам нужно будет найти его позицию и поставить вместо числа эту позицию.

В массиве 10 чисел, поэтому мы запишем такой цикл:

for i:integer : = 1 to 10 do

Здесь проводим проверку - сравниваем с нулем:

if (A[i] > 0) then

A[i] : = A[i] * 1/2;

if (A[i] < 0) then

A[i] : = i;

end.

Все элементы заменены и показать мы их можем через такой же цикл, в теле которого будет строка write (A[i]:5);