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.

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.

Answer 3

Для нахождения суммы квадратов четных элементов в заданном массиве в Pascal, вам понадобится следующий код. Предполагается, что массив уже определен и содержит целочисленные значения:

pascalCopy code
program SumOfSquaresOfEvenElements;

const
  MAX_SIZE = 100; // Максимальный размер массива

var
  arr: array[1..MAX_SIZE] of Integer; // Определение массива
  n, i, sum: Integer;

begin
  // Ввод размера массива
  writeln('Введите размер массива (не более ', MAX_SIZE, '): ');
  readln(n);

  // Ввод элементов массива
  writeln('Введите элементы массива: ');
  for i := 1 to n do
    readln(arr[i]);

  // Нахождение суммы квадратов четных элементов
  sum := 0;
  for i := 1 to n do
  begin
    if arr[i] mod 2 = 0 then
      sum := sum + sqr(arr[i]);
  end;

  // Вывод исходного массива
  writeln('Исходный массив:');
  for i := 1 to n do
    write(arr[i], ' ');
  writeln;

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

  readln;
end.

Программа позволит вам ввести размер массива и его элементы. Затем она вычислит сумму квадратов четных элементов и выведет исходный массив и результат.