Question

Задан случайный цифровой массив. Вывести на консоль сумму порядковых номеров всех нечетных элементов этого массива. Сделайте пожалуйста(в паскале)

Answer 1

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 a.Indices((v, i) -> v.IsOdd).Sum(i -> i + 1).Print

end.

Answer 2

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

pascalCopy code
program SumOddElementIndexes;

const
  ARRAY_SIZE = 10; // Размер массива, можно изменить на необходимое количество элементов

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

begin
  // Инициализация генератора случайных чисел
  Randomize;

  // Заполнение массива случайными числами
  for i := 1 to ARRAY_SIZE do
  begin
    arr[i] := Random(100); // Здесь случайные числа в пределах от 0 до 99
    Write(arr[i], ' ');
  end;

  // Начальное значение суммы
  sum := 0;

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

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

end.

В этом примере, массив arr заполняется случайными числами в диапазоне от 0 до 99. Затем выполняется поиск всех нечетных элементов и суммирование их порядковых номеров в переменной sum. Результат выводится на консоль.