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

Вопрос школьника по предмету Информатика

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