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

Предыдущий
вопрос Следующий
вопрос

program ChangeArrayElements
va
A: array[1..100] of Integer
N, i: Integer
begi
// Ввод размерности массив
write('Введите размерность массива: ')
readln(N);

// Ввод элементов массив
writeln('Введите элементы массива:')
for i := 1 to N d
begi
write('A[', i, '] = ')
readln(A[i])
end;

// Обработка массив
for i := 1 to N d
begi
if A[i] > 0 the
A[i] := A[i] div
els
A[i] := i
end;

// Вывод измененного массив
writeln('Измененный массив:')
for i := 1 to N d
write(A[i], ' ');

readln
end.