Ответ:

Объяснение:

В задаче не было языка, написал на паскале.

Захочешь перепишешь на другие)

var n,x,sum:integer;

begin

sum:=0;

writeln ('Введите количество чисел в последовательности');

readln (n);

for var i:=1 to N do begin

 readln (x);

 if x mod 4=0 then

   sum:=sum+x;

 end;

 writeln ('Сумма чисел кратных 4:  ',sum);

end.