Дан одномерный массив, состоящий из N элементов. Подсчитать количество положительных элементов и заменить эти элементы их индексами.

Program pol;

var

A: array[1 ... 100] of real;

n, i, k: integer;

begin

for i:=1 to n do readln (A[i]); {здесь организуется ввод элементов массива с клавиатуры}

k:=0;

for i:=1 to n do if A[i]>0 then {внутри цикла задаем условие - если встретили положительное число, то ... }

begin

k:=k+1; {увеличиваем значение счетчика на 1 (в случае, если А - положительное) }

A[i]:=i; {присваиваем переменной A[i] значение индекса}

end;

for i:=1 to n do write (A[i],' '); {вывод целого, уже измененного, массива на экран}

readln

end.