Question

С клавиатуры вводят 5 чисел. Вывести на экран модули отрицательных. Решить задачу на языке Паскаль.​

Answer 1

// PascalABC.NET

begin

 ReadSeqReal(5).Where(p -> p < 0).Select(p -> Abs(p)).Print

end.

Answer 2

Конечно, вот пример решения этой задачи на языке Паскаль:

pascalCopy code
program NegativeNumberModulus;

var
  numbers: array[1..5] of Integer;
  i: Integer;

begin
  writeln('Введите 5 чисел:');
  
  for i := 1 to 5 do
  begin
    write('Число ', i, ': ');
    readln(numbers[i]);
  end;
  
  writeln('Модули отрицательных чисел:');
  
  for i := 1 to 5 do
  begin
    if numbers[i] < 0 then
      writeln('Модуль числа ', i, ': ', abs(numbers[i]));
  end;
end.

Примерный ход выполнения программы:

yamlCopy code
Введите 5 чисел:
Число 1: -3
Число 2: 5
Число 3: -7
Число 4: 0
Число 5: -10
Модули отрицательных чисел:
Модуль числа 1: 3
Модуль числа 3: 7
Модуль числа 5: 10

Обратите внимание, что данная программа считывает 5 чисел с клавиатуры, затем выводит модули только отрицательных чисел. Функция abs используется для нахождения модуля числа.