uses crt; var n,i,d : integer; a : array[1..100] of longint; begin write('Nhap n :'); readln(n); d:=0; for i:=1 to n do begin write('Nhap a[',i,']='); readln(a[i]); end; for i:=1 to n do if (a[i]<0) and (a[i] mod 3=0) then d:=d+1; write(d); readln end.
