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

Question

Ввести с клавиатуры 10 чисел - положительных и отрицательных. Заменить все отрицательные числа их модулями и напечатать все полученные 10 чисел.
Это задача в паскале. Напишите саму программу пжл без массива

Answer 1

// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  ReadSeqInteger('Вводите:',10).Select(x->Abs(x)).Println
end.

Пример
Вводите: -42 5 0 217 23 -5 -152 24 17 41
42 5 0 217 23 5 152 24 17 41