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

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

program ChangeArrayElements;
const
N = 5;
var
A: array[1..N] of Integer;
i: Integer;
begin
// Вводим элементы массива
writeln('Enter array elements:');
for i := 1 to N do
readln(A[i]);
// Обработка массива
for i := 1 to N do
begin
if A[i] > 0 then
A[i] := A[i] div 2
else
A[i] := i;
end;
// Выводим измененные элементы массива
writeln('Changed array elements:');
for i := 1 to N do
writeln(A[i]);
end.

Пример работы программы:

Enter array elements:
5
-3
10
-8
4
Changed array elements:
2
2
5
4
2