program vector;
var a:array[1..100]of integer;
n, i, div3, suma:integer;
begin
write('n= '); read(n);
writeln('introdu ',n,' numere intregi:');
div3:=0; suma:=0;
for i:=1 to n do
begin
read(a[i]);
if a[i] mod 3=0 then div3:=div3+1;
if (a[i]<0)and(a[i] mod 5=0) then suma:=suma+a[i];
end;
writeln('a) ',div3,' elemente sunt divizibile cu 3');
writeln('b) suma elementelor negative si divizibile cu 5 este ',suma);
end.
