Question

Pascal ABC Найти сумму элементов массива, имеющих нечетные индексы.

Answer 1

var

i,s:integer;

a:array[1..10] of integer;

begin

writeln('Введите 10 чисел');

for i:=1 to 10 do begin

read(a[i]);

if i mod 2 <> 0 then

s:=s+a[i];

end;

writeln('Сумма элементов массива имеющих нечетные индексы = ', s);

end.

Answer 2

program mas_sumel_nechi;

const n=15;

var

a:array[1..n] of integer;

i,s:integer;

begin

for i:=1 to n do

a[i]:=random(101);

for i:=1 to n do

write(a[i],' ');

writeln;

s:=0;

for i:=1 to n do

if i mod 2<>0

then

s:=s+a[i];

write(s);

readln;

end.

Answer 3

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

pascalCopy code
program SumOfOddIndexedElements;

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); // Случайное число от 0 до 99

  sum := 0;

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

  // Вывод результата
  WriteLn('Массив:');
  for i := 1 to N do
    Write(arr[i], ' ');

  WriteLn;
  WriteLn('Сумма элементов с нечетными индексами:', sum);
end.

Этот код объявляет массив arr размером N и заполняет его случайными числами. Затем он проходит по массиву и находит сумму элементов с нечетными индексами (используя оператор модуля % для проверки на нечетность). Наконец, код выводит исходный массив и сумму элементов с нечетными индексами.