Ответ:

На паскале

var

i, s, n, z: integer;

begin

s:=0;

readln (n);

for i:= 1 to n do

begin

Readln (z);

if z mod 10 = 4 then s:= s+z;

end;

writeln (s);

end.