Question

Ребят срочно помогите( Паскаль)!!!!(16)

Answer 1

program mas_summa_okon_na4;

var

n,i,s,x:integer;

begin

read(n);

s:=0;

for i:=1 to n do begin

read(x);

if x mod 10=4 then

s:=s+x;

end;

write(s)

end.