В заданном массиве найти сумму квадратов чётных элементов. Вывести исходный массив и...

Question

В заданном массиве найти сумму квадратов чётных элементов. Вывести исходный массив и результат. ПАСКАЛЬ

Answer 1

PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('Сумма квадратов элементов с четными значениями равна ',
      a.Where(t->t.IsEven).Select(t->t*t).Sum);
  Writeln('Сумма квадратов четных по порядку элементов равна ',
      Range(1,a.Length-1,2).Select(i->Sqr(a[i])).Sum)
end.

Comments

Из Вашего условия непонятно, нужны элементы с четным значением или элементы, четные по порядку, поэтому выберите нужный Writeln, а второй удалите.

---

Ох...там квадраты...сейчас исправлю

---

Готово

---

четный элемент это само значение элемента или индекс элемента?

---

Я же написал - два варианта там.

---

Но в любом случае не индекс, а либо значение, либо порядковый номер от начала. К индексу нельзя привязываться, потому что не сказано, от какого значения идет индексация - от 0, от 1 или вообще от -19.

---

динамический массив индексируется с нуля, откуда -19?

---

Динамический - да. Поэтому я говорю о порядковых номерах и для четного порядкового номера начинаю с индекса, равного 1.

---

Но это конкретно в моей программе. В исходном вопросе ничего не сказано, о том, какой массив.

---

Может быть, автор вопроса работает с каким-нибудь FPC со статическими массивами и никто не мешает объявить массив с границами [-19..-12]

Answer 2

// если индекс начального элемента считать 1 то можно так
begin
    var arr := Arr(1,2,3,4,5,6).Println;
    Print('Сумма квадратов элементов массива с четными индексами: S = ' + 
                          arr.Where((el,ind)->odd(ind)).Select(t->t*t).Sum);
end.