Question

Найти сумму элементов массива, имеющих нечетное значение.(Pascal)

Answer 1

Ответ:

PascalABC.NET 3.5.1

Begin

 var A := ArrRandom(20, -99, 99);

 A.Where(p -> p mod 2 <> 0).Sum.Print;

end.

Объяснение:

Answer 2

Для нахождения суммы элементов массива, имеющих нечетное значение, в Pascal, вы можете использовать следующий код:

pascalCopy code
program SumOfOddElements;

const
  N = 10; // Здесь задайте размер вашего массива

var
  arr: array[1..N] of Integer;
  i, sum: Integer;

begin
  // Заполняем массив случайными числами (для примера)
  Randomize;
  for i := 1 to N do
    arr[i] := Random(100); // Здесь 100 - максимальное случайное значение

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

  // Проходим по массиву и суммируем нечетные элементы
  for i := 1 to N do
  begin
    if arr[i] mod 2 <> 0 then // Проверяем, является ли элемент нечетным
      sum := sum + arr[i];   // Если да, то добавляем его к сумме
  end;

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

  readln;
end.

Этот код создает массив arr из 10 элементов (вы можете изменить размер массива, установив другое значение для N). Затем он заполняет массив случайными числами от 0 до 99 и находит сумму всех нечетных элементов, добавляя их к переменной sum. В конце программа выводит сумму на экран.