Помогите решить вторую задачу

Question

jlogistik · Accepted Answer

Так как рассматриваем элементы массива, кратные 5, тогда два первых элемента будут равны
а1=5; a2=10, так как a_n=a1+b*(n-1) и n=2; =>10=5+b; =>b=5; 
берем a_n=100; Тогда 100=5+5*(n-1); => 100=5+5*n-5; 100=5*n; n=100/5=20;
S=n*(a1+a_n)/2=20*(5+100)/2=20*105/2=1050;

eugene_greek · Answer

var i,s:integer;
m:array[1..100] of integer;
for i:=1 to 100 do
readln(m[i]);
s:=0;
for i:=1 to 100 do
if m[i] mod 5=0 then s:=s+m[i];
writeln(s);
end.