Question

Дана последовательность целых чисел.
Замечание. Задачи из данного пункта решить двумя способами, используя одномерный массив. Размерность массива вводится с клавиатуры.
1. Заменить все положительные элементы противоположными им числами.
Pascal abc,сам не знаю этот

Answer 1

Первый способ (ищем положительные элементы и меняем им знак)

Программа:


const
  MAX_N = 1000; // Максимальное количество элементов в массиве

var
  a: array[1..MAX_N] of integer;
  i, n: integer;  
begin
  // Ввод массива
  write('Введите размерность массива: ');
  read(n);
  writeln('Введите массив: ');
  for i := 1 to n do
    read(a[i]);
  // Обработка массива
  for i := 1 to n do
    // Если элемент положительный, то меняем знак
    if a[i] > 0 then
      a[i] := -a[i];
  // Вывод массива
  writeln('Полученный массив:');
  for i := 1 to n do
    write(a[i], ' ')
end.


Второй способ (каждому элементу присваиваем обратное его модулю число)

Программа:


const
  MAX_N = 1000; // Максимальное количество элементов в массиве

var
  a: array[1..MAX_N] of integer;
  i, n: integer;  
begin
  // Ввод массива
  write('Введите размерность массива: ');
  read(n);
  writeln('Введите массив: ');
  for i := 1 to n do
    read(a[i]);
  // Обработка массива
  for i := 1 to n do
      a[i] := -abs(a[i]);
  // Вывод массива
  writeln('Полученный массив:');
  for i := 1 to n do
    write(a[i], ' ')
end.