Question

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

Answer 1

var a:array [1..10] of integer;

      i:integer;

begin

  for i:=1 to 10 do begin

  readln(a[i]);

  if a[i]<0 then a[i]:=abs(a[i]);

  writeln(a[i]);

  end;

end.

Answer 2

Вот пример программы на языке Паскаль, которая позволяет ввести 10 чисел с клавиатуры, заменить все отрицательные числа их модулями и вывести полученные числа:

program PositiveNumbers;

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

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

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

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

Программа запрашивает у пользователя ввод 10 чисел с клавиатуры. Затем она заменяет все отрицательные числа их модулями с помощью функции `abs()`. Наконец, программа выводит полученные числа на экран.

Примечание: Приведенный код написан на языке Паскаль. Если вам нужна программа на языке Java, пожалуйста, уточните это, и я предоставлю вам соответствующий код.