Răspuns:
program div5;
const nmax=100;
type vector=array[1..nmax] of integer;
var v:vector;
n,i,dif: integer;
procedure diferenta(v:vector; n:integer; var dif:integer);
var j,d:integer;
begin
j:=2;
while (v[j] mod 5 <>0)and(j<=n) do inc(j,2);
if j>n then dif:=0
else
begin
d:=v[j];
inc(j,2);
while j<=n do
begin
if v[j] mod 5 =0 then d:=d-v[j];
inc(j,2);
end;
dif:=d;
end;
end; {diferenta}
begin {program principal}
read(n);
for i:=1 to n do read(v[i]);
dif:=0;
diferenta(v,n,dif);
writeln(dif);
end.
Explicație:
