Напишите программу нахождения суммы элементов массива а [1..15], порядковый номер которых является четным числом. массив заполняется произвольными числами в диапазоне да 100.

, вообще не понимаю как это делать

Код:s = [] result = [] i = input() s.append(i) while i != "end":    i = input().lower()    s.append(i) s.remove("end") for i in range(len(s)):    result.append(list()) for i in range(len(s)):    for j in range(5):        result[i].append(int(s[i])**2) for i in result:    print(i)Вывод:1 2 3 end [1,  1,  1,  1, 1] [4, 4, 4, 4, 4] [9, 9, 9, 9, 9]P.S. после 3 идут двузначные, трехзначные квадраты и список немного съезжает. Получается что то типа этого: [1, 1, 1, 1, 1] [4, 4, 4, 4, 4] [9, 9, 9, 9, 9] [16, 16, 16, 16, 16] [25, 25, 25, 25, 25]Если тебе нужно, чтобы каждое число было под своим столбиком, то попробуй написать вывод списка сам, используя два цикла. Выводи построчно каждый символ с дефолтным кол-вом пробелов между числами с end=" " в операторе print. В конце вывода всего вложенного цикла сделай print(), чтобы вывод следующей строки списка осуществлялся с новой строки.  

Const
  t = 10;// количество чисел в массиве

var
  a: array[1..t] of integer;
  i, min, k, tmp, klv, z: integer;
  b: boolean;

begin
 
  for i := 1 to t do
    a[i] := random(10) + 1;   //Рандом чисел от 1 до 10
 
  writeln('Массив:');
  for i := 1 to t do
    write(' ', a[i]:2);
  writeln;
 
  for i := 1 to t - 1 do
    for k := i + 1 to t do
      if a[i] > a[k] then
      begin
        tmp := a[k];
        a[k] := a[i];
        a[i] := tmp;
      end;
 
  writeln('После сортировки:');
  for i := 1 to t do
    write(' ', a[i]:2);
  writeln;
 
  klv := 0;
  writeln('Введите число X:');
  readln(z);
  for i := 1 to t do
    if a[i] = z then
    begin
      b := true;
      inc(klv);
    end;
  if b then
  begin
    writeln('Число ', z, ' встречается ', klv, ' раз(а).');
  end;
 
  if b = false then writeln('Число ', z, ' не встречается.');
end.