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

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

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

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

// Обработка массива
for i := 1 to N do
begin
if A[i] > 0 then
A[i] := A[i] div 2
else
A[i] := i;
end;

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

readln;
end.