Дана последовательность целых чисел. Замечание. Задачи из данного пункта решить двумя способами, используя одномерный массив. Размерность массива вводится с клавиатуры. 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.