Вычислить сумму четных целых чисел из (n, m)

Здесь нужно делать в цыкле следущее : 1)количество проходов цикла = количеству четных чисел*2; 2)делаем проверку всех чисел нужного диапазона делением чисел на число 2 и если остаток от деления не равен 0, то число не подходит. остаток от деления можно проверить функцией fmod();

Var  a: array[1..100] of integer;   i, j, c: integer; begin  writeln('массив ');   for i : = 1 to 100 do  begin    a[i] : = random(201) - 100;     write(a[i], ' ');   end;   writeln;   write('введите число (от -100 до 100) ');   readln(j);   for i : = 1 to 100 do      if a[i] = j then begin c : = c + 1; write(i, ' '); end;   writeln;     if c> 1 then write('в массиве число введённое вами есть в массиве и даже несколько (', c, '). их индексы представлены выше') else  if c = 1 then write('число, которое вы ввели есть в массиве. его индекс представлен выше') else write('такого числа в массиве нет');     end.

1  ) ответ:   1323141; двигаемся в обратном порядке 2324142 (идём с конца)  ей противоположные  1323141 2 ) ответ:   2949; мы должны получить 11 и 13 причем минимально . можем только так 9+2 и 9+4 . значит 2949 3 )   ответ: 3; чтобы добраться до 21 нам нужно выполнить 1 команду 6 раз и 3 раза вторую , нас спрашивают про вторую пишем ответ 3 4 ) ответ: 1; нам нужно число которое делится на 5 то есть 4 отпадает , и также нам нужно чтобы модуль разности был не более 2 и во втором и в третьем модуль разности больше 2 , остается 1. 5 )    ответ: 1112221; я всегда начинаю с обратного  57-56-28-14-7-6-5-4   собираем с конца 1112221