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

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

program PositiveNumbers;

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

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

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

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

end.