Паскаль:составить массив из 5 элементов с клавиатуры и вывести в строку.Если элемент положительный,то заменить его на противоположный.

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

program PositiveToNegative;
var
arr: array[1..5] of Integer;
i: Integer;
begin
writeln('Введите 5 элементов массива:');
for i := 1 to 5 do
begin
readln(arr[i]);
if arr[i] > 0 then
arr[i] := -arr[i];
end;

writeln('Массив после замены положительных элементов:');
for i := 1 to 5 do
write(arr[i], ' ');
end.