Задача в паскале: Ввести с клавиатуры 10 чисел - положительных и отрицательных. Заменить все отрицательные числа их модулями и напечатать все полученные 10 чисел.

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

program PositiveNumbers;

var
numbers: array[1..10] of integer;
i: integer;

begin
// Ввод чисел с клавиатуры
writeln('Введите 10 чисел:');
for i := 1 to 10 do
begin
readln(numbers[i]);
end;

// Замена отрицательных чисел их модулями
for i := 1 to 10 do
begin
if numbers[i] < 0 then
begin
numbers[i] := abs(numbers[i]);
end;
end;

// Вывод полученных чисел
writeln('Полученные числа:');
for i := 1 to 10 do
begin
writeln(numbers[i]);
end;

end.