Question

Найти сумму элементов массива с четными номерами позиции В Pascal. Очень нужно!!!!

Answer 1

Var summ:integer;
begin
  var a := Arr(1,2,3,4,5,6,7,8,9);
  for var i:=0 to 8 do  begin
      write('[',a[i],'] ');
  end;
  writeln('');
  for var i:=0 to 8 do  begin
      if (i mod 2)=1 then begin
           summ:=summ+a[i];
           write('[',a[i],'] ');
      end;
  end;
  writeln('summa = ',summ);
end.

Answer 2

Конечно, я могу помочь с этой задачей! Вот пример кода на Pascal, который находит сумму элементов массива с четными номерами:

goCopy code
program SumOfEvenIndexedElements;

const
  N = 10; // размер массива

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

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

  // вывод элементов массива для проверки
  for i := 1 to N do
    Write(arr[i], ' ');

  // вычисление суммы элементов с четными индексами
  sum := 0;
  for i := 2 to N step 2 do
    sum := sum + arr[i];

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

В этом коде используется цикл for для прохода по элементам массива с четными индексами (i начинается с 2 и увеличивается на 2 на каждой итерации). Сумма элементов с четными индексами сохраняется в переменной sum, которая затем выводится на экран.

Надеюсь, это поможет! Если у вас есть какие-либо вопросы или нужна дополнительная помощь, пожалуйста, сообщите мне.