Question

Сумма нечетных отрицательных чисел через массив в паскале

Answer 1

Program Otric;

var
  mas: array [1..3] of integer;
  i, k: integer;

begin
  k := 0;
  write('Введите числа: ');
  for i := 1 to 3 do
  begin
    readln(mas[i]);
    if (mas[i] < 0) and (mas[i] mod 2 <> 0)
      then k := k + mas[i];
  end;
  writeln('Сумма нечетных отрицательных чисел = ', k);
end.

Answer 2

Для вычисления суммы нечетных отрицательных чисел через массив в Pascal (или Pascal-like) коде, необходимо выполнить следующие шаги:

1. Создать массив и заполнить его нужными числами.
2. Произвести итерацию по массиву, чтобы найти нечетные отрицательные числа.
3. Вычислить их сумму.

Ниже приведен пример кода на Pascal, реализующий это:

pascalCopy code
program SumOfNegativeOddNumbers;

const
  N = 10; // Размер массива (можно изменить на нужное значение)

var
  arr: array[1..N] of Integer; // Объявление массива
  i, sum: Integer; // Переменные для итерации и хранения суммы

begin
  // Заполнение массива (для примера будем использовать отрицательные и положительные числа)
  arr[1] := -3;
  arr[2] := 7;
  arr[3] := -9;
  arr[4] := 2;
  arr[5] := -6;
  arr[6] := 4;
  arr[7] := -1;
  arr[8] := 5;
  arr[9] := -8;
  arr[10] := -11;

  // Инициализация суммы
  sum := 0;

  // Итерация по массиву
  for i := 1 to N do
  begin
    // Проверка на нечетное отрицательное число
    if (arr[i] < 0) and (arr[i] mod 2 <> 0) then
    begin
      // Добавление числа к сумме
      sum := sum + arr[i];
    end;
  end;

  // Вывод результата
  writeln('Сумма нечетных отрицательных чисел: ', sum);
end.

В этом примере массив заполнен разными числами, и программа найдет все нечетные отрицательные числа в массиве и вычислит их сумму. Обратите внимание, что если в вашем реальном случае массив уже заполнен, вам не понадобится часть кода, относящаяся к заполнению массива.

Скомпилируйте и запустите этот код, и вы получите результат суммы нечетных отрицательных чисел в массиве.