Question

30 БАЛОВ! ПРОШУ, ПОМОГИ! Найти сумму элементов массива из 11 целых чисел, имеющих индексы, кратные 3 (это на паскале)

Answer 1

Ответ:

program z1;

var a:array [1..11] of integer;

i,s:integer;

begin

s:=0;

write('Массив: ');

for i:= 1 to 11 do //цикл для

begin //составной оперотор начало

a[i]:= random(90)+10; //присваивание значения элементам массива через random

write(a[i]:4); //форматиронный вывод значения элемента массива на экран

if i mod 3 = 0 then s:=s+a[i] //сокращённый условный оператор, условие кратности 3, подсчёт суммы

end; //составной оперотор конец

writeln;

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

end.

Answer 2

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

pascalCopy code
var
  arr: array[0..10] of Integer; // Массив из 11 чисел
  i, sum: Integer;

begin
  // Инициализируем массив arr как вам нужно

  sum := 0;
  for i := 0 to 10 do
  begin
    if i mod 3 = 0 then
      sum := sum + arr[i];
  end;

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

В этом коде arr - это ваш массив из 11 чисел, и мы проходимся по нему в цикле for, проверяя каждый индекс на кратность 3 с помощью оператора mod. Если индекс кратен 3, то добавляем соответствующий элемент массива к переменной sum, которая хранит сумму.

Просто замените arr на ваш реальный массив чисел, и этот код должен вычислить сумму элементов массива с индексами, кратными 3.