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

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

Программа:

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.